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ABSTRACT 


An  ALTOS  series  microcomputer  is  Being  used  as  tne 
dost  computer  in  a  microprocessor  development  system  (MLS ) . 
Tne  MDS  nardware,  consisting  of  tne  PRO-LOG  STL  dus,  a  Z30 
cpu  card.  21  bytes  iSPRO.M  and  36£  bytes  random  access  memory, 
is  controlled  by  tne  nost  via  a  single  serial  I/O  port.  Tie 
system  provides  tne  capability  to  develop  and  test  cotn 
software  and  Hardware  in  tne  combined  CP/M  (MP/M)  ana  MDS 
environments . 
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I.  INTRODUCTION 


Tae  Naval  Postgraduate  Scnooi  Electrical  Engineering 
Department's  mlcroeomputer/mi  croprocessor  development 
laboratory,  presently  being  used  for  microprocessor 
application  courses  at  tae  beginning  and  intermediate 
levels,  offers  two  metnods  of  applications  development.  One 
method  uses  the  Tektronix  8002  development  system,  wnile 
this  system  is  very  capable  for  hardware  applications 
development,  it  is  limited  in  available  software,  provides 
for  use  by  only  a  single  user  at  a  time,  and  taxes  a 
considerable  amount  of  time  to  learn  to  use  properly.  Also, 
because  of  the  hieh  cost  of  additional  in-circuit  emulation 
modules  for  different  processors,  the  system  nas  been  slow 
to  expand.  On  the  other  end  of  tne  spectrum,  tne  ALTOS 
series  single  and  multi-user  microcomputer  systems  oroviie 
extremely  good  suppprt  for  software  development  due  to  tne 
vast  variety  of  CP/M  based  software  currently  available. 
Tnese  systems  nave  a  much  lower  per-user  cost  and  provide  a 
worn  environment  more  enhancing  to  individual 
productiveness.  Tne  primary  disadvantage,  however,  is  tae 
lacK  of  support  for  hardware  development,  without  having  to 
get  Inside  tne  computers  and  building  some  type  of  Jtludged 
interface  whose  reliability  is  often  haphazard  at  best. 
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Tne  design  and  implementation  of  a  relatively  low  cost, 
low  complexity,  nigaly  flexiaie  microprocessor  development 
system,  combining  many  of  tae  good  features  of  each  of  these 
metaods  is  tne  topic  of  furtner  discussion  in  tnis  thesis. 


II.  THE  MICROPROCESSOR  DEVELOPMENT  SYSTEM 


Tne  bounding 
system  (MDS)  are 


needs  of  tnis  microprocessor  aeveiopmen 
grouped  into  tne  four  areas  listed  below: 


t 


Tne  overall  system  cost  snoula  De  relatively  low  in 
contrast  to  large  develooment  systems  sum  as  tne 
Tektronix  3002. 


Tne  MDS  snouid  be  of  low  complexity  in  botn  software 
and  nardware  requirements. 

Tne  system  snouid  utilize  existing  software  and 
nardware  to  tne  best  extent  possible. 


Tne  system  snouid  be  expandable  and  easily 
customized  or  reconfigured  to  operate  witn  numerous 
otner  microcomputer  systems. 


The  determination  of  these  needs  made  the  selection  of 
final  requirements  almost  automatic.  Tne  primary  decisions 
were  what  capabilities  should  be  included  in  tne  MDS  within 
tne  constraints  of  tne  needs  given  and  tne  time  available. 
Typical  development  system  components  include  software 
support  for  editing,  assembling  and  debugging  applications 
programs  acd  hardware  support  for  testing  botn  tne  software 
and  nardware  in  an  in-circuit  emulation  (ICEi  environment. 

Because  of  the  low  complexity  constraint  and  tne  limited 
time  available  for  tnis  project,  it  was  decided  tnat  tne  ICS 
component  would  be  tne  area  wnere  most  of  tne  compromises 
would  be  made  during  the  system  design.  To  further  meet  tne 
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stated  needs,  t&e  decision  was  made  to  design  tne  system  for 
operation  as  a  tass  In  tne  CP/M  and  MP/M  operating  systems 
environment. 

A.  HARDWARE  CONSIDERATIONS 

Initial  Ideas  for  meeting  tne  hardware  needs  of  tne  MDS 
included  utilizing  an  ALTOS  microcomputer  as  tne  control 
computer  for  a  separate  hardware  development  system.  The 
minimum  nardware  development  system  would  consist  of  a 
dedicated  microprocessor,  EPROMs  for  an  onboard  monitor, 
sufficient  random  access  memory  (RAM)  for  storage  and 
execution  of  fairly  complex  programs  and  a  serial  RS-232C 
port  for  interface  to  tne  ALTOS. 

Tne  ALTOS  computer  and  tne  nardware  development  system 
together  would  form  tne  complete  microprocessor  development 
system.  For  clarity,  tne  ALTOS  computer  will  nencefortn  be 
referred  to  as  the  'HOST',  tne  nardware  development  system 
as  tne  'MDS'  and  tne  overall  system  as  tne  'AMDS',  for  ALTOS 
Microprocessor  Development  System. 

The  MDS  nardware  was  tne  subject  of  primary 
consideration  during  tne  initial  stages  of  system  design. 
Consideration  was  first  given  to  wire-wrapping  circuits  to 
meet  tne  stated  minimum  nardware  requirements,  but  tni s 
approach  was  soon  recognized  as  being  prohibitive  due  to  the 
considerable  time  requirements  involved  for  this  type  of 
wors. 
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Tais  approach  would  also  contribute  to  a  less  reliable  and 
less  flexible  system  for  long  term  use  and  future  expansion. 

Tnus,  the  decision  was  made  to  use  a  standardized  bus 
system  wnicn  aas  achieved  industry  acceptance  in  botn  proven 
applications  and  in  manufacturer  support  and  wnicn  would 
offer  a  reasonable  initial  system  cost  (under  $1560.00'. 
Wnile  several  manufacturers  offer  such  a  system,  tne  PRO-LOG 
Corporation  STD  bus  was  cnosen  over  others  primarily  due  to 
its  immediate  availability  and  local  manufacturer  support. 

Tne  final  *DS  nardware  configuration  consists  of  tne 
following  PRO-LOG  components: 


A  16  slot  STD  bus  and  card  cage  witn  provisions  for 
wire-wrapped  carls. 

A  2MEz  Z90  processor  card  witn  onboard  provisions 
for  up  to  4£  bytes  of  RAM  and  up  to  8K  bytes  of  2716 
EPROM. 


Two  15K  byte  static  memory  cards. 


A  dual 

USART  card 

consisting  of 

two 

fully 

independent , 

asynchronous 

RS-222C  serial 

po  rts 

wi  tn 

provision  for 

one  of  these 

to  be  configured 

as  a 

20mA 

loop  for  TTX 

applications . 

Several 

blans  utility  cards  for 

wire-w 

rapped 

applications. 

A  DC  power  supply  providing  -‘•5V/10A  and  ±127/1  A. 


The  only  nardware  modification 
system  operable  was  tne  addition 
wnicn  is  only  a  momentary  ground  to 


necessary  to  get  this 
of  a  manual  reset  svitcn 
tne  pusn-button  reset 
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pin  ( 46 )  on  me  STD  Dus.  Tfle  STD  Dus  pin  definitions  are 
.eiyen  in  figure  l . 


PIN 

MNEMONIC 

1 

+  5VDC 

2 

+  5VDC 

3 

GND 

4 

GND 

5 

VBB#1 

6 

VBB#2 

7 

D3 

8 

D7 

9 

D2 

10 

D6 

11 

D1 

12 

D5 

13 

DO 

14 

D4 

15 

A7 

16 

A15 

17 

A6 

18 

A14 

19 

A5 

20 

A13 

21 

A4 

22 

A12 

23 

A3 

24 

All 

25 

A2 

26 

A10 

27 

A1 

28 

A9 

29 

AO 

30 

AS 

31 

V/R* 

32 

RD* 

33 

IORQ* 

34 

MEMRO* 

35 

I0EXP 

36 

MEMEX 

37 

REFRESH* 

38 

MCSYNC* 

39 

STATUS  1* 

40 

STATUS  0* 

DESCRIPTION 

Logic  Power 
Logic  Power 
Logic  Ground 
Logic  Ground 
Logic  Bias  #1  (-5V) 
Logic  Bias  # 2  (-5V) 
Data  Bit  3 
Data  Bit  7 
Data  Bit  2 
Data  Bit  6 
Data  Bit  1 
Data  Bit  5 
Data  Bit  0 
Data  Bit  4 
Address  Line  7 
Address  Line  15 
Address  Line  6 
Address  Line  14 
Address  Line  5 
Address  Line  13 
Address  Line  4 
Address  Line  12 
Address  Line  3 
Address  Line  11 
Address  Line  2 
Address  Line  10 
Address  Line  1 
Address  Line  9 
Address  Line  0 
Address  Line  8 
Write  to  Memory  or  I/O 
Read  Memory  or  I/O 
I/O  Address  Select 
P-Iemory  Address  Select 
I/O  Expansion 
Memory  Expansion 
Refresh  Timing 
CPU  Machine  Cycle  Sync 
CPU  Status 
CPU  Status 


Figure  1  -  PRO-LOG  STD  Bus  Pin  Definitions 


PIN 

MNEMONIC 

41 

BUSAK* 

42 

BUSRQ* 

43 

INTAK* 

44 

INTRO* 

45 

WAITRQ* 

46 

NMIRQ* 

47 

SYSRESET* 

48 

PBRESET* 

49 

CLOCK* 

50 

CNTRL* 

51 

PCO 

52 

PCI 

53 

AUX  GND 

54 

AUX  GND 

55 

AUX  +V 

56 

AUX  -V 

DESCRIPTION 

Bus  Acknowledge 
Bus  Request 
Interrupt  Acknowledge 
Interrupt  Request 
Wait  Request 
Nonmaskable  Interrupt 
System  Reset 
Push-Button  Reset 
Clock  from  Processor 
AUX  Timing 
Priority  Chain  Out 
Priority  Chain  In 
AUX  Ground 
AUX  Ground 

AUX  Positive  (+12VDC) 
AUX  Negative  (-12VDC) 


* Low- level  active  indicator 


Figure  1  (cont'd) 
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B.  SOFTWARE  CONSIDERATIONS 

The  editing,  assembling  and  debugging  software  needs  for 
the  AMDS  were  easily  fullfllled  by  deciding  to  utilize  CP/M 
based  software.  The  basic  CP/M  and  MP/M  operating  systems 
provide  software  for  each  of  these  needs,  therefore 
simplifying  the  overall  system  design  considerably. 
Additionally,  the  existence  of  a  vast  selection  of  CP/M 
based  software  products  on  the  commercial  market  greatly 
enhances  the  growth  prospects  for  software  applications 
development  with  this  system.  An  added  feature  of  the 
decision  to  use  CP/M  based  software  is  the  ability  tc 
develop  and  test  software  on  any  microcomputer  using  the 
CP/M  operating  system.  This  feature  alone  is  one  of  the  most 
advantageous  aspects  of  the  AMIS. 

With  these  capabilities  accounted  for,  the  remaining 
software  considerations  were  those  of  determining  the 
software  requirements  for  the  HOST  to  control  the  MD3  and 
deciding  upon  those  capabilities  which  should  be  included  in 
the  control  software  package. 

C.  THE  SYSTEM  CONTROL  SOFTWARE 

The  system  control  software  needs  were  divided  into  two 
areas:  1)  the  control  program  resident  in  the  HOST,  to  be 
used  in  exercising  overall  control  of  both  the  ALTOS  and  the 
MDS  and;  2)  the  MDS  onboard  monitor  program,  to  be  used  for 
communications  with  the  HOST  and  for  interpreting  and 
executing  HOST  commands. 
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1.  The  HOST  Control  Software 


The  primary  functions  of  the  AMES  control  program 
resident  in  the  HOST  are  to  communicate  with  the  system  user 
and  to  exercise  positive  control  of  the  MIS.  It  is  intended 
to  be  the  workhorse  of  the  system,  providing  numerous 
routines  to  simplify  the  work  required  of  the  MES . 

A  study  of  the  monitor  and  control  programs  for 
typical  development  systems  helped  in  identifying  the 
following  software  needs  as  the  most  essential  user 
requirements  for  implementation  into  the  HOST  control 
program : 


A  routine  to  download  data  from  disk  to  MES  memory. 

A  routine  to  upload  data  from  MD5  memory  and  store 
it  on  disk. 

A  routine  for  examining  and  modifying  MES  memory 
contents . 

A  routine  for  filling  specified  blocks  of  mds  memory 
with  a  specific  byte  of  data  for  memory  initialization. 

A  routine  to  locate  a  specific  data  sequence  in  MES 
memory. 

A  routine  to  dump  the  contents  of  MES  memory  to  a 
CRT  or  printer  in  a  format  conducive  to  user 
interpretation . 

A  routine  to  initiate  the  execution  of  a  program 
previously  placed  into  MIS  memory. 

Each  of  these  routines  are  implemented  in  the  HOST 
control  program.  Additional  routines  provide:  1)  the  ability 
to  perform  additions  and  subtractions  of  two  hexadecimal 
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numbers  and  display  the  results,  2)  a  routine  for  continuous 
modification  of  f-TES  memory  without  an  Intermediate 
examination  of  each  location,  and  3)  routines  for  online 
user  self-help  and  system  use  instructions. 

The  primary  consideration  in  the  design  of  the  HOST 
control  program  was  in  making  it  user  oriented.  Thus, 
considerable  effort  was  made  to  make  the  system  easy  to 
learn  and  to  provide  positive  user  feedback  in  all  modes  of 
operation.  Examples  of  this  include  the  implementation  of  a 
menu  displaying  all  user  options,  detailed  instructions  for 
required  input  formats  (available  at  any  time),  and  fully 
explanatory  error  displays.  Operation  of  the  system  is 
designed  so  that  the  user  should  never  be  in  doubt  as  to 
what  is  going  or  what  is  required  of  him. 

The  control  program  flow  is  straightforward.  Program 
parameters  are  first  initialized  followed  by  displaying  the 
menu  of  options  on  the  user's  console  and  prompting  him  for 
input  of  the  desired  option.  The  input  is  then  interpreted 
and  a  branch  is  made  to  the  routine  chosen,  whereupon  the 
user  is  again  prompted  for  additional  input  unique  to  that 
option.  Upon  completion  of  the  option,  at  the  command  of  the 
user  or  after  a  trap  to  certain  errors,  the  program  returns 
control  to  the  menu  routine  to  await  further  user  commands. 
This  flow  is  easier  visualized,  as  shown  in  Figure  2. 

The  flow  of  the  individual  option  subroutines  is 
equally  simple.  Upon  entering  each  routine,  again  various 
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parameters  are  initialized  and  the  user  is  prompted  for 
initial  input.  When  the  proper  input  is  received,  the 
routine  takes  the  necessary  actions  to  perform  the  task, 
including  communications  with  the  MDS,  if  applicable,  and 
prompting  the  user  for  additional  inputs  as  required.  On 
completion  of  the  option,  control  returns  to  the  menu 


routine 


"AMDS" 


Figure  2 


ERROR 

or 

USER  HALT 


-  HOST  Control  Program  Flowchart 
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ill  user  input  is  checked  for  validity  including 
proper  syntax,  correct  number  and  placement  of  parameter 
delimiters  and  for  valid  hexadecimal  digits  where 
applicable.  Additionally,  the  input  is  checked  for  user 
requests  for  help  or  to  terminate  the  option  and  return  to 


the  menu. 

Data 

input 

and 

output 

formats  were 

kept  as 

compatible 

as 

possible 

with  those 

in  the  CP/M 

dynamic 

debugging 

tool 

(EET)  . 

All 

input 

is  terminated 

with  a 

carriage 

return 

or  a 

line 

feed 

and  input  line 

editing 

functions  conform  to  the  rules  set  forth  in  the  CP/M  and 
MP/M  users  manuals.  By  maintaining  this  degree  of 
compatibility  the  learning  cycle  of  the  AMES  user  should  be 
lessened  considerably. 

System  errors  are  divided  into  two  categories;  those 
due  to  faulty  user  inputs  and  those  due  to  disk  I/O 
operations.  Eepending  on  the  particular  error,  errors  may 
take  one  of  three  courses  of  action.  They  may  return 
directly  to  the  menu,  they  may  restart  the  option  in 
progress  when  the  error  occurred  or  they  may  simply  return 
to  the  point  where  the  error  occurred  and  await  user 
provided  corrective  measures.  More  details  are  provided  in 
the  AMDS  user's  guide. 

The  final  area  of  the  HOST  control  program  requiring 
discussion  is  that  of  the  routines  and  associated  protocols 
used  for  intercommunication  between  the  HOST  and  the  MES . 
Because  the  MES  may  not  always  utilize  a  fast  processor  such 
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as  the  Z80  and  since  the  MES  is  provided  with  the  ability  to 
execute  user  programs  in  real  time,  it  was  conceivable  that 
the  MIS  response  time  to  the  HOST  could  be  considerably  slow 
in  some  instances.  This  also  brings  up  the  possibility  of 
lost  data  if  the  HOST  is  transmitting  faster  than  the  MBS 
can  service  its  serial  I/O  port.  A  final  problem  in  such  an 
asynchronous  setup  is  what  the  data  sent  is  intended  for,  be 
it  a  command  or  some  type  of  processable  data. 

In  order  to  alleviate  the  lost  data  problem  and  to 
lessen  the  response  time  to  the  HOST,  several  assumptions 
were  made  in  the  communications  software  design.  The  primary 
assumption  is  that  the  HOST  has  communications  priority  at 
all  times.  From  this  assumption  the  following  protocols  were 
established  and  implemented.  A  type  of  software  handshaking 
between  HOST  and  MDS  is  provided  for  each  character  seat  by 
either  device.  Some  experimentation  was  done  with  the  use  of 
packets  of  characters  greater  than  one,  but  some  data  less 
was  experienced  when  either  the  HOST  or  MES  was  busy  with 
other  tasks  besides  I/O.  Though  time  prohibited  further 
experimentation  in  this  area,  it  is  felt  that  some  type  of 
hardware  initiated  control  signals  would  be  necessary  to 
increase  transmission/reception  reliability  in  a  packet 
communications  mode  for  this  system. 

The  protocol  thus  Implemented  follows  several  rules. 
For  each  piece  of  data  to  be  transmitted  two  bytes  of  data 
are  actually  required.  The  first  byte  indicates  the  type  of 


data  to  follow.  Types  include  command  data,  pure  data,  and 
status  data.  Each  type  is  assigned  a  hexadecimal  equivalent 
as  follows: 


055H  indicates  that  the  next  byte  to  be  transmitted 
will  be  a  command 

0FFH  indicates  that  the  next  byte  to  be  transmitted 
will  be  pure  data 

00H  indicates  that  the  next  byte  to  be  transmitted 
will  be  status  data  (the  only  currently  implemented 
status  data  is  00H,  meaning  the  sender  is  at  some  point 
in  the  execution  of  its  program  where  it  awaiting  input 
from  the  other  device  in  order  to  proceed) 

As  an  example,  when  the  user  wants  to  examine  an  MIS  memory 

location  the  HOST  first  sends  the  data  sequence: 

055H  ,  058H  (058H  is  the  ASCII  hexadecimal  code  for 

'l' ,  the  Examine  Command) 

After  receipt  and  display  of  the  data  in  MES  memory,  the 
user  wants  to  change  it  to  say,  03FH,  thus  the  HOST  would 
send  the  sequence:  0FFH  ,  03FH  . 

In  addition  to  this  rule,  recall  that  a  software 
handshake  is  provided  for  every  character  sent.  As  each 
character  is  received,  the  receiving  system  returns  an 
acknowledgement  byte  of  C11H,  the  ASCII  hexadecimal  code  for 
XON,  meaning  the  character  has  been  received  and  further 
transmissions  may  proceed.  At  the  same  time,  the  sender  is 
awaiting  this  acknowledgement  before  proceeding  with  further 
transmissions  or  continuing  on  to  other  tasks.  This 
handshaking  overhead  seems  unrealistically  high  at  first 
glance,  but  it  is  negligible  to  the  user  for  most  types  of 
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applications  envisioned  for  this  system  and  it  provides  a 
high  degree  of  confidence  in  the  communications  setup. 
Perhaps  the  only  time  the  communications  throughput  would  be 
degraded,  in  the  user's  eyes,  would  be  when  an  application 
program  might  require  nearly  continuous  data  transmissions 
for  a  lengthy  period  of  time.  A  way  around  this  particular 
situation  is  discussed  in  the  section  on  system 
implementation . 

To  improve  MIS  response  to  HOST  transmissions,  the 
MIS  checks  for  receipt  of  a  HOST  transmission  prior  to  every 
output  to  the  HOST.  If  the  HOST  has  sent  information, 
typically  a  new  command,  the  MIS  halts  whatever  it  was  doing 
and  processes  the  new  data. 

Further  details  concerning  the  HOST  control  program 
are  discussed  in  the  system  user's  guide  and  all  routines 
are  well  documented  in  the  source  code  listings  and  flow 
diagrams  in  the  appendices. 

2.  The  MIS  Onboard  Monitor 

Because  the  HOST  control  program  was  designed  to  do 
most  of  the  the  work  required  of  the  AMIS,  the  MDS  monitor 
software  was  much  easier  to  develop. 

The  monitor  software  essentially  consists  of  a 
command/data  interpreter,  a  set  of  complementary  routines 
for  each  of  the  HOST  initiated  MIS  options,  and  a  similar 
set  of  I/O  routines  for  communications  with  the  HOST.  The 
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program  flow  is  basically  the  same  as  described  for  the  HOST 
control  program,  with  the  exception  that  there  is  no  direct 
input  from  the  user.  The  MES  monitor  does  not  have  any  error 
routines  since  all  system  error  detection  is  built  into  the 
HOST  control  program.  If  for  any  reason  the  monitor  does  not 
understand  the  HOST  transmissions  it  simply  waits  until 
something  is  sent  that  it  does  recognize  and  then  proceeds. 
Though  it  is  unlikely  that  the  system  will  get  hung  up  in  a 
loop  during  normal  HOST  to  MES  communications,  if  it  should 
occur,  either  an  ESCape  sequence  from  the  HOST  or  a  manual 
reset  of  the  MBS  will  terminate  the  loop.  The  only 
foreseeable  circumstances  in  which  this  might  occur  are  when 
a  user  program,  executing  in  MES  memory,  attempts  to  obtain 
information  from  the  HOST  when  the  HOST  is  not  expecting 
such  a  request. 

The  monitor  is  written  for  automatic  startup  after 
either  a  system  power-on  reset  or  a  manual  reset.  All  VIS 
serial  I/O  ports  are  initialized  to  communicate  at  S6O0 
baud.  Routines  for  user  program  I/O  with  the  HOST  console 
and  for  return  to  the  MES  monitor  are  also  provided  via 
simple  user  calls,  as  explained  in  the  user's  guide. 

Again,  more  detailed  information  may  be  best  gleened 
from  the  AMES  user's  guide,  the  flow  diagrams  and 
accompanying  source  code  listings  in  the  appendices. 
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I 


III .  SYSTEM  IMPLEMENTATION  AM?  CUSTOMIZATION 

m 

x4fc'rhe  AMES  is  a  modular  system  with  respect  to  both 
software  and  hardware.  Though  this  thesis  is  concerned 
primarily  with  implementation  of  the  system  as  already 
stated,  with  an  ALTOS  microcomputer  and  the  PRO-LOG  5TE 
hardware,  the  design  is  intended  to  be  usable  on  any  other 
CP/M  or  MP/M  based  system  with  only  a  few  software  changes 
and  minor  additional  hardware  interface  requirements  (beyond 
the  MES  hardware  needs,  naturally). 

A.  PUTTING  IT  ALL  TOGETHER 

Implementation  of  the  HOST  control  program  is  simply  a 
matter  of  loading  and  executing  the  program  via  the  normal 
CP/M  method  of  typing  in  the  name  of  the  object  file,  in 
this  case  'AMES',  followed  by  a  carriage  return  or  line 

feed . 

Implementing  the  MES  system,  while  not  especially 
taxing,  does  require  the  use  of  a  PROM  programmer  to  load 
the  monitor  software  into  EPROM.  Once  this  is  accomplished, 
and  the  EPROMs  are  installed,  the  system  implementation  is 
nearly  complete.  All  that  remains  is  connecting  the  systems 
together,  turning  on  the  power  and  the  reset  is  automatic. 

This  particular  development  system  is  coupled  together 
via  a  standard  RS-232C  connector  cable  set  with  a  2?-pin, 
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EB-25P,  male  'E'  connector  on  the  HOST  end  and  a  26-pin 
female  Amphenol  connector  on  the  MES  end.  Only  the  signal 
ground,  transmit  and  receive  signals  are  necessary  and  other 
RS-232C  signals  are  ignored  in  this  implementation.  ^The 
standard  RS-232C  pin  definitions  are  shown  in  Figure  3.)  The 
HOST  end  of  the  connector  is  plugged  into  the  auxiliary 
serial  port  on  the  ALTOS  multi-user  system  and  the  MES  end 
is  connected  to  the  '  k'  channel  socket  on  the  dual  USART 
card.  Additionally,  it  should  be  ensured  that  the  'k' 
channel  is  jumpered  for  ETE  (Eata  Terminal  Equipment) 
operation,  as  explained  in  the  dual  USART  card  documentation 
listed  in  the  bibliography. 

These  procedures  are  all  that  is  necessary  to  implement 
and  use  the  basic  system. 
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ALTOS 


MDS 


PGND 

RXD 

TXD 

RTS 

CTS 

DSR 

SGND 

RLSD 

DTR 


Protective  Ground 
Transmitted  Data  (TXD) 

Received  Data  (RXD) 
Request  to  send 
Clear  to  send 
Data  Set  Ready- 

Signal  Ground 
Received  Line 
Signal  Detect 
Data  Terminal  Ready 


*  NC  -  No  Connection 


Figure  3  -  RS-232C  Pin  Definitions  and 
System  I/O  Setup 


B.  CUSTOMIZATION 


The  primary  areas  of  customization  of  the  AMDS  are  those 
concerning  the  use  of  different  processors  in  the  MBS  and 
the  use  of  different  serial  interfaces. 

At  present  the  PRO-LOG  Corporation  STD  bus  supports  the 
9080,  8085,  Z80,  Z80A  and  the  6800  series  microprocessors. 
The  current  implementation  uses  the  Z80  with  onboard  ZFRGM 
and  RAM.  The  ROM  and  RAM  address  areas  may  be  jumpered  to 
either  the  lower  (as  done  here)  or  the  upper  16S  of  address 
space.  In  order  to  use  the  monitor  in  the  upper  16K  of 
address  space  would  require  a  hardware  addition  capable  of 
taking  control  of  the  address  lines,  at  power-on  reset  or 
manual  reset,  and  forcing  the  next  execution  address  to 
coincide  with  the  first  address  of  the  monitor.  Otherwise, 
the  Z80  (and  8360/8085)  processors  normally  execute  location 
0000H  after  a  reset  sequence.  If  no  monitor  program  is 
located  at  this  location  the  processor  executes  garbage 
until  a  HALT  instruction  is  encountered.  An  implementation 
of  the  monitor  in  high  memory,  however,  is  an  idea  to  be 
well  considered  for  future  versions  of  the  AMES,  as  it  would 
provide  better  compatibility  with  the  page  zero  I/O  mapping 
scheme  used  by  the  6800  microprocessor.  As  an  additional 
benefit,  it  would  lessen  some  of  the  software  limitations 
currently  Imposed  by  the  current  configuration.  These 
limitations  are  discussed  in  a  separate  section  of  this 
paper . 
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As  to  the  use  of  different  serial  I/O  interfaces, 
several  hardware  additions  may  he  necessary  on  the  ALTOS 
computers.  If  the  system  is  used  with  the  single-user  ALTOS 
computers,  the  options  are  to  use  the  serial  port  currently 
used  by  the  printer  or  to  build  an  additional  serial  port 
into  the  computer  via  the  use  of  its  internal  bus  connector. 
If  using  the  multi-user  system,  two  AMES  systems  could  be 
supported  simultaneously  by  simply  using  two  of  the  serial 
ports  currently  used  for  consoles.  To  support  four  complete 
AMDS  systems  would  require  the  addition  of  three  more  serial 
ports  in  a  manner  similar  to  that  discussed  for  the  single 
user  system. 

The  changes  in  serial  port  usage  would  require  a  few 
minor  changes  in  the  HOST  control  program.  If  ZILCG  SIO 
devices  are  used,  as  presently  installed  in  the  ALTOS  series 
computers,  the  software  modification  reduces  to  simply 
changing  the  status  ( MSTATPT )  and  data  ( MEATAPT )  port 
designations  in  the  'equates'  (EQU  statements)  section  at 
the  beginning  of  the  HOST  control  software  source  code  and 
then  reassembling  the  code  for  the  new  serial  ports.  If 
serial  communication  chips  other  than  the  510  are  used,  the 
HOST  control  routines  ME3TAT,  MESIN,  and  MLSOUT  would  have 
to  be  modified  to  operate  with  the  particular  chip  chosen. 

On  the  MBS  side  of  the  system,  the  customization  process 
for  software  changes  of  serial  ports  is  very  similar  to  that 
of  the  HOST.  Using  additional  INTEL  S251  USARTs  would 
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necessitate  only  changes  to  serial  port  equates  for  CHASTAT 
and  CHADATA  in  the  MD3  monitor  source  code,  followed  by 
reassembly  and  reprogramming  of  the  EPROMs.  Use  of  serial 
devices  other  than  the  8251,  would  require  appropriate 
changes  to  the  MES  routines  H03TAT,  HOSTIN,  and  HOSTCUT. 

Beyond  these  hardware  oriented  customization  procedures, 
provisions  have  been  included  for  the  addition  of  more  user 
options  and  error  processes  in  the  HOST  control  software. 
Each  of  these  areas  use  'jump"  tables  to  vector  to  the 
option  or  error  routine  selected.  To  add  an  option  to  the 
menu,  the  new  option  routines  would  be  added  to  the  body  of 
the  current  source  code,  a  JMP  xxxx  (xxxx  is  the  option 
label)  instruction  would  be  added  to  the  menu  jump  table  and 
the  menu  display  would  be  modified  appropriately  in  the 
message  storage  section  of  the  source  code.  The  insertion  of 
additional  error  codes  is  identical,  except  that  the  jump 
instructions  are  inserted  in  the  error  jump  table. 

One  further  comment  on  the  addition  of  user  options 
concerns  the  method  of  decoding  the  option  selected,  Perm 
options  are  identified  by  an  assigned  alphabetic  character 
from  A  through  Z  (current  options  go  only  through  the  letter 
N).  The  ASCII  code  for  each  option  is  modified  for  use  with 
the  jump  table  in  the  following  manner.  The  ASCII  code  is 
first  'anded'  with  the  data  01  PH.  This  removes  all  ASCII 
biasing  and  leaves  only  the  hexadecimal  equivalents  of  the 
numbers  1  through  26,  corresponding  to  the  letters  A  to  Z. 
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These  numbers  are  then  used  to  find  the  appropriate  vector 
from  the  jump  table,  as  further  explained  in  the  source 
documentation.  Thus  the  provision  for  twelve  more  options,  0 
through  Z,  is  included  in  the  current  version  of  the  HOST 
control  software.  If  these  options  are  added,  simple  changes 
are  also  required  to  the  equates  for  MAXCHCE,  the  highest 
option  letter  in  use,  and  for  NHSTCMI,  the  current  number  of 
'host  only'  commands. 

A  consideration  to  keep  in  mind  when  editing  the  HOST 
software  is  the  fact  that  it  is  currently  a  62X  byte  file 
and  thus  larger  than  the  index  table  capacity  of  the  TEI 
text  editor  used  widely  at  the  Naval  Postgraduate  School. 
For  this  reason,  the  source  code  is  broken  into  two  files: 
AMESPl.ASM  containing  the  primary  option  routines,  and 
AMESP2 . ASM  containing  the  utility  and  support  routines  and 
message  and  data  storage  definition  areas.  Prior  to 
assembly,  the  files  are  concatenated  via  the  use  of  the  C?/v1 
Peripheral  Interchange  Program  (PIP)  as  follows: 

PIP  AMDS .ASM=AMDSP1 .ASM  , AMDS F2. ASM 
The  file  AMES. ASM  is  then  assembled  using  whatever  assembler 
is  desired. 

MES  monitor  software  customization  is  at  least  as 
simple,  if  not  easier  than  that  for  the  HOST.  Commands  are 
decoded  via  the  simple  mechanism  of  comparing  the  commana  to 
a  set  of  known  commands  and  then  jumping  to  the  option 
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routines  selected.  The  only  additional  source  code  changes 
which  might  be  applicable  to  the  MIS  would  be  a  change  of 
the  assembly  origin  (QRG  statements)  addresses  if  the 
monitor  is  to  be  moved  into  upper  memory  as  mentioned 
previously . 

C.  SYSTEM  LIMITATIONS 

This  system,  as  with  many  other  well  designed  systems, 
also  has  its  limitations*  Some  of  these  have  already  been 
alluded  to  in  previous  sections  and  will  now  be  discussed  in 
more  depth. 

The  current  MES  configuration,  with  the  lower  16K 
address  space  reserved  for  the  monitor  ROM  and  RAM,  Imposes 
several  notable  limitations  on  the  use  of  the  AMES.  Besides 
the  page  zero  I/O  mapping  incompatibili ty  between  the  £800 
and  Z80,  which  has  already  been  pointed  out,  the  inability 
to  use  this  address  space  for  user  program  execution  places 
a  restriction  on  the  types  of  CP/M  based  software  which  may 
be  downloaded  and  executed  in  the  MIS  memory. 

CP/M's  executable  object  files,  designated  as  '.COM' 
files,  are  created  with  the  implied  intent  of  loading  and 
initiating  the  execution  of  these  files  froni  location  0100H. 
Since  this  location  is  withia  the  reserved  area  in  the  MES, 
such  '.COM'  files  cannot  be  downloaded  and  executed  in  MIS 
memory.  Unfortunately,  most  CP/M  software  on  the  commercial 
market  is  distributed  in  this  format. 
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The  restriction  thus  imposed  is  that  only  disk  files  in 
the  INTEL  Hex  Format  (see  Figure  4)  or  in  a  page  relocatable 
format  may  be  downloaded  and  executed  in  MDS  memory.  This  is 
because  these  formats  are  not  dependent  upon  any  address 
restrictions  and  are  executable  in  whatever  address  space 
for  which  they  are  assembled. 
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RH 


RL 


LA 


RT 


DATA 


CK 


RH  -  RECORD  HEADER:  AN  ASCII  COLON  (3A  HEX) 

SIGNALS  THE  START  OF  EACH  RECORD. 

RL  -  RECORD  LENGTH:  TWO  ASCII  HEX  CHARACTERS  GIVE 
THE  RECORD  LENGTH  (THE  NUMBER  OF  8-BIT  DATA 
BYTES  IN  THE  RECORD).  END  OF  FILE  IS  INDICATED 
BY  A  ZERO  RECORD  LENGTH.  (10  HEX  IS  MAX.  RL) 

LA  -  LOAD  ADDRESS:  FOUR  ASCII  HEX  CHARACTERS  GIVE 
THE  ADDRESS  WERE  THE  FIRST  DATA  BYTE  OF  THE 
RECORD  IS  LOCATED. 

RT  -  RECORD  TYPE:  THE  RECORD  TYPE  IS  ALWAYS  00 

EXCEPT  FOR  THE  LAST  RECORD  OF  AUTOSTART  FILES, 
WERE  IT  IS  01. 

DATA  -  TWO  ASCII  HEX  CHARACTERS  REPRESENT  EACH 
8-BIT  DATA  BYTE. 

CK  -  CHECKSUM:  TWO  ASCII  HEX  CHARACTERS  GIVE  THE 
NEGATIVE  SUM  OF  ALL  PREVIOUS  BYTES  IN  THE 
RECORD,  EXCEPT  FOR  THE  COLON.  THE  SUM  OF  ALL 
THESE  BYTES  PLUS  THE  CHECKSUM  EQUALS  ZERO. 


Figure  4  -  INTEL  HEX  File  Record  Format 
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The  free  address  space  of  the  present  PIS,  4000H  to 
0BFFFH,  is  therefore  sufficient  for  the  needs  of  these  file 
types.  As  mentioned,  most  distributed  software  does  not  come 


in  these  formats.  For  use 

of  the  MES 

in 

beginner  and 

intermediate 

level  course 

work,  however. 

th 

is  restriction 

should  not 

be  a  dominant 

disadvantage 

in 

applicat ions 

development 

and  in  gaining 

an  insight 

in 

to  the  use  of 

microprocessors  . 

Because  of  the  time  constraints  imposed,  as  well  as  this 
student's  lack  of  familiarity  with  page  relocatable  file 
formats,  only  the  use  of  type  '.HEX'  files  are  supported  for 
upload  and  download  operations  in  the  current  version  of  the 
AMDS. 

Other  limitations  of  the  system  are:  the  lack  of 
breakpoint  setting  and  cpu  register  examination  facilities 
in  the  MES;  the  lack  of  a  facility  for  moving  blocks  of  MES 
memory;  the  inability  to  operate  the  PIS  in  a  true 
in-circuit  emulation  mode;  the  current  limitation  of  having 
only  a  single  processor  and  the  inability  to  operate 
multiple  processors  on  the  MES  bus;  and  the  limitations 
already  discussed  concerning  communications  protocols. 

Most  of  these  limitations  are  only  temporary,  with  the 
possible  exception  of  obtaining  true  in-circuit  emulation. 
The  high  communications  overhead  of  the  HOST  to  MES 
interface  can  be  avoided  by  user  programs  in  the  MES  memory 
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IV. 


CONCLUSIONS  AND  RECOMMENDATIONS 


The  original  needs  stated  for  the  microprocessor 
development  system  have  been  met,  with  the  exceptions  noted 
as  limiting  factors.  Even  with  these  limitations  imposed  on 
the  current  design,  however,  it  is  felt  that  a  significant 
tool  has  been  added  to  the  small,  but  growing  Electrical 
Engineering  microcomputer  laboratory.  The  final  design  cf 
the  system  has  left  considerable  room  for  future  expansion 
and  improvement  in  both  areas  of  software  and  hardware  and 
is  thus  a  good  vehicle  for  additional  thesis  study. 


A.  FUTURE  HARDWARE 

There  are  numerous  changes  and  enhancements  to  be  made 
to  the  system  in  the  hardware  area.  Some  of  these 
enhancements  are  described  below. 


Implementation  of  hardware  initiated  communi ca t ion 
control  signals  to  increase  system  response  and 
throughput. 

The  addition  of  a  tfaster/Slave  cpu  capability  to 
operate  and  evaluate  different  microprocessor  types  on 
the  same  bus?  this  capability  would  have  to  be 
implemented  via  the  use  of  interrupts  and  the  bus 
request  control  lines  plus  appropriate  software. 

The  addition  of  analog  to  digital  and  digital  to 
analog  (A/D  and  D/A)  capability  will  signi f i ca n tly 
increase  the  usefullness  of  the  system  in  hardware 
development  applications. 


Another  worthwhile  improvement  would  be  the  addition 
of  a  PROM  programmer  with  the  capability  to  change  its 
personality  under  software  control  in  order  to  program 
different  types  of  PROMs. 

.  and  the  list  goes  on. 

B.  FUTURE  SOFTWARE 

Many  of  the  immediate  enhancements  to  the  system  will 
probably  be  an  outgrowth  of  the  limitations  pointed  out 
previously.  These  include  making  changes  for  the  use  of  CP/M 
'.COM'  files  and  adding  support  for  page  relocatable  files. 
These  two  additions  alone,  would  tremendously  improve  the 
potential  uses  of  the  AMDS. 

Other  near  future  additions  should  include  facilities 
for  moving  blocks  of  MDS  memory  and  for  the  use  of 
breakpoint,  single-stepping  and  program  trace  routines.  Such 
routines  would  probably  be  best  implemented  as  individual 
files  downloaded  to  the  MES  memory.  The  routines  could  then 
operate  as  an  extension  of  the  onboard  monitor.  This  would 
also  provide  the  flexibility  to  execute  routines  for 
different  processors  under  control  of  a  dedicated  monitor. 

The  addition  of  software  for  cross  assembly  of  source 
code  between  various  processors  is  another  recommendation 
worth  careful  consideration.  One  idea,  which  was  considered 
for  inclusion  in  this  thesis  but  was  axed  for  lack  of  time, 
is  the  use  of  macro  assemblers  for  cross  'translation'  of 
source  code.  The  idea  would  be  to  develop  source  code  using 
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the  standard  mnemonics  of  a  particular  processor  and  then 
translate  the  source  code  to  the  mnemonics  understood  by 
whatever  processor  is  actually  available.  Once  this  is 
accomplished,  testing  and  debugging  of  the  software  can  be 
done  with  available  hardware.  The  code  can  then  be 
translated  or  cross  assembled  back  to  code  for  the  original 
processor  and  put  to  use  in  its  intended  application,  all 
without  the  use  of  a  true  development  system  for  that 
processor . 

Finally,  an  area  of  great  promise  is  that  of  systems 
networking.  The  new  C?NET  and  MPNET  loose-coupled  network 
facilities,  by  DIGITAL  RESEARCH  Corporation,  provide 
numerous  avenues  for  further  study  into  allowing  the  APES  to 
share  its  resources  with  other  computer  systems. 

All  cf  these  improvements  are  feasible  and  cost 
effective.  These  additions  will  also  allow  much  of  the 
burden  to  be  taken  off  the  beginning  program  and  hardware 
designers.  Much  of  the  less  interesting  trivia  normally 
associated  with  applications  development  can  be  skipped  over 
and  the  solution  to  the  problem  can  be  approached  in  a  more 
efficient  and  structured  manner. 


38 


APPENDIX  A 


AMES  USERS  GUIDE 


TABLE  OF  CONTENTS 

1.  INTRODUCTION -  40 

2.  HOW  TO  USE  THE  AMDS  -  41 

3.  GETTING  STARTED -  43 

4.  SYSTEM  FUNCTIONS  (USER  OPTIONS)  -  44 

5.  INFORMATION  OF  GENERAL  INTEREST  -  52 

6.  TIPS  FOR  PROGRAMMING  THE  MDS  -  54 

7.  SYSTEM  ERROR  MESSAGES  -  57 


39 


AMES  USERS  GUI  EE 


1.  INTRODUCTION 

The  ALTOS  Microprocessor  Development  System  (AMES)  is 
designed  to  be  used  as  an  aid  to  students  in  beginning  and 
intermediate  levels  of  software  and  hardware  applications 
development.  The  system  consists  of  an  ALTOS  microcomputer. 


running 

under 

the 

CP/M  or  MP/M  operating  systems. 

and  a 

hardware 

development 

and  testing 

system  built 

around 

the 

PRO-LOG 

STD 

bus . 

Included  in 

the  current 

(June 

1961 ) 

hardware 

development 

system  are  a 

2MHz  Z80  cpu 

card 

with 

onboard  monitor  in  EPROM  and  4K  bytes  of  static  RAM,  two  16K 
byte  static  RAM  cards  and  a  dual  TJ3ART  asynchronous  RS-232C 
serial  I/O  card.  The  ALTOS  and  the  hardware  development 
system  are  linked  together  via  a  serial  I/O  channel. 

The  ALTOS  computer,  hence  referred  to  as  the  'HOST', 
exercises  control  over  the  hardware  development  system 
(designated  as  the  'MES')  via  the  execution  of  the  HOST 
control  program  named  AMES.COM  .  The  onboard  monitor  in  the 
MES  contains  routines  which  complement  those  in  the  HOST 
control  program,  though  on  a  less  complex  scale.  A  more 
detailed  treatment  of  the  inner  workings  of  the  AMDS  system 
is  available  in  the  student  thesis  by  LT .  Stephen  M.  Hughes, 
U3N,  titled  "a  Microprocessor  Development  System  for  the 
ALTOS  Series  Microcomputers”. 
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2.  HOW  TO  USE  THE  AMDS 

The  AMES'  primary  use  is  in  the  design  and  testing  of 
both  software  and  hardware  applications  in  a  real  time 
environment.  The  typical  steps  for  effective  use  of  the 
system  would  be  as  follows: 

a)  Using  standard  CP/M  or  MP/M  software  development 
tools,  such  EET ,  TEE,  EE,  ASM  and  MAC,  the  user  would 
develop,  test  and  debug  (to  the  extent  possible) 
software  to  be  used  in  a  hardware/microprocessor 
oriented  application. 

b)  Simultaneously  to  step  a),  the  user,  or  other 
members  of  a  project  team,  would  be  designing,  wire 
wrapping  and  performing  initial  tests  on  the  hardware, 
using  available  test  equipment  such  as  oscilloscopes, 
digital  voltmeters,  etc. 


C)  At 

such 

time  as  the 

hardware  and  software 

are 

ready  to 

be 

tested  together,  the  AMDS  would 

come 

into 

use.  At  this  point  the  wire 

wrapped  circuitry 

would 

be 

inserted 

into 

a  slot  in 

the  development 

bus , 

the 

software 

would 

be  downloaded 

to  the  MES  memory 

and , 

via 

the  use  of  the  AMIS  user  options,  the  software  and 
hardware  would  be  tested  as  a  single  unit. 
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d)  Refinements  and  correction  to  both  hardware  and 
software  could  then  be  made  as  in  steps  a)  and  b)  and 
step  c)  then  repeated  until  the  application  operates  as 
intended. 

The  intent  of  this  procedure,  though  it  might  appear 
cumbersome,  is  to  allow  the  software  programmers  to 
concentrate  on  their  work  using  proven  and  tested 
development  aids  while  simultaneously  allowing  the  hardware 
designer/builders  to  forge  ahead  in  their  respective  areas. 
The  lesson  to  be  learned  is  the  'real  world'  concept  that 
communications  between  such  distinct  but  collectively 
important  segments  of  a  team  effort  are  what  is  necessary 
for  successful  fulfillment  of  the  project  goals.  These 
intergroup  communications  require  that  each  team  carefully 
plan  the  project  in  its  initial  stages  of  development  and 
that  the  division  of  responsibilities  and  the  methods  of 
implementation  of  the  project  are  thoroughly  understood  by 
all  members  of  the  team.  With  this  type  of  planning  and 
communication  of  ideas,  the  AMTS  concept  is  thus  seen  as 
less  cumbersome  than  initially  thought  and  actually  allows 
for  a  very  flexible  working  environment.  The  use  of  the  APES 
also  relieves  the  hardware  designers  of  much  of  the  burden 
previously  placed  on  students  to  design  and  wire  wrap  their 
own  cpu  and  memory  cards. 
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3.  GETTING  STAHTEX 

This  section  is  intended  as  a  quick  review  for  those 
already  familiar  with  the  use  of  the  AMES.  Others  should 
carefully  review  the  remainder  of  this  guide  prior  to 
attempting  to  use  the  system. 

With  software  developed  and  tested  as  best  possible 
(naturally  those  software  routines  fully  dependent  upon  the 
hardware  have  not  been  completely  tested)  and  with  the 
hardware  prototype  in  hand,  the  stage  is  set  for  utilization 
of  the  AMDS. 

With  the  MES  power  OEF  (!)  the  prototype  card  is 
inserted  snugly  into  one  of  the  wide  slots  of  the  card  cage 
which  are  specially  designed  to  accept  wire  wrapped  cards. 
After  insuring  the  card  is  properly  in  place,  the  power  is 
then  switched  on  and  the  MES  reset  switch  is  pressed.  The 
MES  is  now  ready  for  use. 

Next,  the  AMES  HOST  control  software  is  initiated  from 
the  ALTOS  system  console  by  typing  'AMES',  followed  by  a 
carriage  return.  The  HOST  control  program  then  loads  into 
memory  and  begins  execution  by  displaying  a  menu  of  user 
options  and  prompts  the  user  for  a  reply.  At  this  point  the 
user(s)  may  proceed  with  testing  using  the  options  described 
in  subsequent  sections  of  this  guide. 
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4.  SYSTEM  FUNCTIONS  (USER  OPTIONS) 

The  AMDS  control  program  is  designed  as  a  menu-driven 
program.  This  means  that  after  each  primary  task  is 
completed,  the  user  is  shown  a  menu  of  options  from  which  he 
may  chose  his  next  move.  Each  of  these  options  is  discussed 
in  the  remainder  of  this  section  of  the  guide. 


A.  SUPPRESS  PRINTING  MENU  - 

Selection  of  option  'A'  allows  the  experienced  AMES  user 
to  automat ically  suppress  the  display  of  the  menu  at  the 
end  of  each  option.  When  this  is  done  the  system  status 
(whether  the  HOST  or  MES  is  in  control)  and  reminders  of 
which  option  suppresses  and  which  does  not  suppress  the 
menu  are  printed,  followed  by  the  prompt  to  input  a  menu 
option. 

B.  EO  NOT  SUPPRESS  PRINTING  MENU  - 

Opposite  of  option  'A',  option  'B'  allows  the  user  to 
regain  full  menu  display  if  he  cannot  remember  the 
option  code  he  wishes  to  select. 

C.  BASIC  INSTRUCTIONS  - 

Option  'C'  displays  a  set  of  basic  instructions  for  use 
of  the  AMES.  These  instructions  should  normally  answer 
the  questions  of  most  first  time  users  without  the  need 
to  resort  to  this  guide. 
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D.  HEXADECIMAL  ADD  and  SUBTRACT 


Option  'E '  allows  the  user  to  quickly  obtain  the  16  bit 
hexadecimal  sum  and  difference  of  two  numbers.  When  this 
option  is  selected,  a  nessage  verifying  the  option 
actually  entered  will  be  displayed,  followed  by  a  prompt 
for  input. 

The  input  expected  is  two  hexadecimal  numbers,  of  up  to 
four  digits  each,  separated  by  either  a  comma  or  a  space 
as  the  following  example  shows: 

>01AF  F3AB  or  >01AF,F3AB 

The  sum  and  difference  of  these  two  numbers  are  then 
displayed  as: 

SUM  =  F55A  EIFF  *  0E04 

The  user  is  then  returned  to  the  menu  for  selection  of 
another  option. 

(  **  This  option  has  the  same  input  format  as  the  'S' 
command  in  EET  **  ) 

E.  RETURN  SYSTEM  CONTROL  TO  HOST  - 
Selection  of  option  'E '  is  necessary  only  when  the 
system  control  has  been  passed  to  the  MES  via  a  previous 
command  for  it  to  execute  a  program  in  its  ovn  memory. 
This  option  then  allows  the  user  to  request  the  MDS  to 


terminate  its  present  action  and  return  control  to  the 
HOST  in  preparation  for  subsequent  commands. 

**  Note  that  this  option  may  not  he  effective  if  the 
program  being  executed  in  MIS  memory  runs  astray  or 
never  checks  for  or  attempts  to  perform  I/O  with  the 
HOST.  The  only  renedy  in  this  situation  is  to  manually 
reset  the  MDS  . 


F.  RETURN  TO  CP/M 


Selection  of 

option 

will 

terminate  use  of 

the 

AMDS 

and  return 

the 

user 

to 

the  CP/M  (or  MP/M) 

operating 

environment . 

(The 

input 

of  a 

control  C  as 

the 

first 

entry  after  any  prompt  will  also  accomplish  the  same 
thing. ) 

G.  LOWNLOAE  HEX  FILE  -  EISK  TO  MIS  - 
Option  'G'  allows  the  user  to  download  an  INTEL  Hex 


format 

file 

from 

disk 

to 

MIS  memory.  Hex  f 

iles  are 

normally 

generated 

in 

the 

course  of  the 

assembly 

process . 

**  Note 

that 

only  ' 

HEX' 

file 

types  are  supported 

in  this 

version 

and 

the  system 

will 

not  accept  requests 

for  any 

other  types. 

When  this  option  is  selected,  an  option  verification 
message  is  displayed  and  the  user  is  prompted  to  input 
the  filename.  The  entry  of  the  filetype  'HEX'  is 
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optional  but  acceptable.  Rules  for  acceptable  filenames 
follow  those  set  forth  in  CP/M  documentation  with  the 
exception  that  ambiguous  filenames  (those  containing 
?'s)  are  not  accepted.  Additionally,  only  the  currently 
logged  in  disk  drive  will  be  used  for  disk  I/O  and  if 
the  drive  select  code  is  entered  with  the  filename  it 
will  be  ignored  if  it  fails  to  match  that  which  is 
currently  logged  in. 


After  the  Hex  file  is  successfully  downloaded,  a  message 
to  that  effect  will  be  displayed  and  the  user  will  be 
returned  to  the  menu. 


H.  UPLOAE  MES  MEMORY  TO  HEX  EISK  FILE  - 
Option  'H '  is  Just  the  reverse  of  option  'G'.  Filename 
input  is  the  same.  After  the  filename  is  input,  the  user 
is  prompted  for  the  starting  and  ending  addresses  in  MES 
memory  from  which  the  contents  are  to  be  saved  on  disk 
in  a  'HEX'  type  file.  Acceptable  inputs  are  two 
hexadecimal  numbers,  the  first  being  less  than  the 
second,  input  in  the  same  manner  as  in  option  'E': 


>403C  659F 


When  the  upload  is  completed,  the  user  will  be  so 
informed  and  returned  to  the  menu. 
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I.  EXAMINE/SET  MIS  MEMORY  LOCATION  (S)  - 

Option  allows  the  user  to  examine  and  modify  (set) 
the  contents  of  MLS  memory.  The  first  prorT.pt  is  for  the 
initial  MIS  address  to  be  examined  such  as:  ><?BC3  .  The 
system  then  fetches  the  data  from  that  location  and 
displays  it  as: 

0EC3  3 A 

and  waits  for  more  input  after  the  '3A'.  If  the  user 
desires  to  change  the  data  in  that  memory  location,  he 
may  then  enter  the  new  data.  The  system  stores  the  new 
data  and  automatically  advances,  examines  and  displays 
the  next  sequential  location  in  MLS  memory.  This  process 
continues  until  a  period  is  the  only  data  input. 

If  no  modification  of  a  memory  location  is  desired,  a 
carriage  return  will  cause  an  alv«*.  nee  to  the  next  memory 
location  without  modifying  the  VIS  memory. 

(  **  This  option  has  the  sate  I/O  format  as  the  '5  ' 
command  in  EET  **  ) 

J.  CONTINUOUS  SET  OF  MLS  MEMORY  - 

Option  ' J '  is  similar  to  the  examine/set  option  ('I') 
except  that  it  does  not  exa.nire  the  MLS  memory,  it  only 
modifies  it  with  sequential  inrut  data.  The  first  input 
requested  is  the  starting  MIS  address  for  modifications, 
i.e.  >13LA  .  The  second  and  subsequent  prompts  are  for 


data  to 


be  entered  Into  MBS  memory,  sequentially 
starting  at  the  address  specified.  Input  data  may  he  up 
to  255  characters  long  (including  spaces  and  commas)  for 
a  single  line  of  input.  If  more  than  255  characters  are 
input,  the  system  merely  issues  another  prompt  for  a 
continuation  line.  Each  byte  of  data  is  separated  by  a 
space  or  a  comma.  4aen  input  is  completed,  a  period 
entered  after  the  promp;  will  terminate  the  option. 

K.  FILL  MLS  MEMORY  ill  H  SPECIFIEL  BYTE  - 
Option  'K'  enables  the  user  to  fill  any  portion  of  MBS 
memory  with  a  specified  byte  of  data.  The  advantage  of 


this  is  to  allow 

the 

vser  better 

knowledge  of 

the 

current  contents 

of 

MBS  memory 

and  to  help 

in 

identifying  needed 

dati 

during  memory 

dumps  to  the  C 

RT. 

The  input  expected 

af  tei 

the  prompt  are  the  start 

and 

ending  MBS  addresses  followed  by  the  data  to  be  placed 
in  those  locations.  For  example: 

>0395 ,7FE0 ,24  will  fill  MBS  memory  between, 
ani  'ncluding,  locations  33S5H 
and  7FB0H  with  data  2A,  the 
AiCII  code  for 

(  **  This  option  has  the  same  input  format  as  the  'F' 
command  in  BBT  **  ) 
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L.  LOCATE  BYTE  SEQUENCE  IN  MLS  MEMORY  - 

Option  'L'  allows  the  user  to  search  MES  memory  fcr  a 
sequential  data  seruence  up  to  16  bytes  long.  The  first 
input  prompted  fcr  is  the  search  start  address  followed 
by  an  optional  en'*  address  as  shown: 

>0023  5?9A  or  >(023 

If  no  end  address  is  given  it  will  default  to  0FFFFH. 
The  next  prompt  is  for  the  byte  sequence  as: 

>00  03  45 ,9A  ,CC  . up  to  16  bytes 

If  the  sequence  is  found,  the  starting  address  of  the 
sequence  in  MLS  memory  is  displayed.  If  not  found,  an 
appropriate  message  is  also  displayed. 

M.  LUMP  MES  MEMORY  LOCATION(S)  TO  CONSOLE  - 

Option  'M'  provides  for  a  hexadecimal  and  ASCII  MLS 
memory  dump  to  the  CRT.  The  only  inputs  require?  are  the 
start  and  optional  end  addresses  for  the  dump  in  the 
same  format  as  option  'L ' .  If  no  end  address  is 
specified  it  defaults  to  the  start  address  +  256. 

(  **  The  dump  I/O  format  is  the  same  as  that  for  the  'L ' 
command  in  EET  **  ) 

If  the  user  wishes  to  continue  the  dump  after  the 
initial  dump  completes,  he  may  type  in  the  letter  'E'  to 
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dump  the  next  256  byte  block.  Any  other  input  will 
return  the  user  to  the  menu. 


**  Note  that  unlike  the  EET  dump  command,  the  only  way 
to  abort  a  memory  dump  is  by  pressing  the  ESCape  key. 

N.  EXECUTE  MES  MEMORY  FROM  A  SPECIFIEE  LOCATION  - 
Option  'N '  allows  the  user  to  pass  system  control  to  the 
MES  and  let  it  execute  a  program  in  its  memory.  User 
input  required  is  the  MES  start  address  of  the  program 
to  be  executed.  After  the  address  is  input,  the  user  is 
asked  whether  or  not  the  program  to  be  executed  in  MES 
memory  will  be  sending  data  to  the  HOST  console  for 
display.  If  the  answer  is  no,  then  the  user  is  returned 
to  the  menu.  IF  the  answer  is  yes,  then  the  HOST  system 
loops  waiting  for  data  to  display,  until  one  of  the 
conditions  mentioned  below  is  met. 

**  Note  that  when  this  option  is  selected,  the  options  F 
through  N  are  disabled  until  the  MES  returns  control  to 
the  HOST;  when  the  'E'  option  is  selected?  or  when  the 
MES  system  is  manually  reset. 

**  For  further  discussion  on  the  proper  use  of  this 
option,  see  the  section  on  'TIPS  FOR  MES  PROGRAMMING'. 
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5.  INFORMATION  OF  GENERAL  INTEREST 

a)  The  prompt  for  all  user  input  is  '>'  . 

b)  All  inputs  may  be  in  either  upper  or  lower 
alphabet ics . 

c)  All  input  is  terminated  with  either  a  cai 
return  or  a  line  feed. 

d)  All  address  and  data  inputs  are  expected  to 
hexadecimal  notation.  Address  inputs  contain  from  1 
hex  digits  and  data  inputs  contain  1  or  2  hex  digit 

e)  When  inputting  addresses  and  data,  mistakes 
be  corrected  in  two  ways:  1)  by  using  the  RUEOUT  1 
backspace  keys  to  delete  input  or  2)  by  ; 
continuing  to  input  the  hex  characters  until  the  cc 
ones  are  input.  For  addresses,  the  program  always 
the  last  four  or  less  hex  digits  input  and  for  dat-f 
last  two  or  less  digits  entered.  At  least  one  digit 
be  entered  for  every  required  input  parameter. 

f)  A  question  mark  '?'  entered  during  input 
cause  the  required  input  formats  for  each  option 
displayed.  When  the  display  is  corpleted,  the  cun 
selected  option  is  restarted. 


case 

r  iage 

be  in 
to  4 

s  . 

may 
ey  o  r 
imply 
r  rec  t 
takes 
,  the 
mus  t 

will 
to  be 
ently 
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g)  If  the  ESCape  key  is  entered  as  input,  the  option 
is  immediately  terminated  and  the  user  is  returned  to 
the  menu. 

h)  The  MES  is  automatically  reset  at  power-on  hut  it 
is  generally  a  good  idea  to  manually  reset  it  anyway. 

i)  The  MDS  to  HOST  serial  I/O  port  and  the 
additional  I/O  port  in  the  f’DS  are  both  initialized  at 
every  reset  to  operate  at  a  S600  baud  rate. 


1 

4 

i 

I 


6.  TIPS  FOR  PROGRAMMING  THE  MIS 

a)  If  a  program  requires  considerable  communications 
with  the  user,  the  best  terminal  response  will  be  gained 
by  using  a  separate  CRT  attached  to  the  spare  serial  I/C 
port  in  the  MIS.  This  port  may  be  reprogrammed  for  a 
different  baud  rate  if  necessary  (see  the  PRO-LOG  dual 
UART  documentation  for  detailed  steps  for  programming 
channel  B). 

b)  If  the  user  does  not  wish  to  fool  with 
programming  the  MDS  channel  B  USART,  but  still  has  the 
need  for  console  I/O,  his  program  may  use  the  routines 
built  into  the  monitor  specifically  for  this  purpose.  In 
a  manner  similar  to  the  BIOS  calls  used  by  CP/M,  the 
user  program  may  call  location  0005H  in  the  monitor  for 
console  I/O  using  the  HOST  console.  The  conventions  for 
these  calls  is  as  follows: 

-  for  input  from  the  HOST  console  the  user  program 
should  call  MDS  address  0005H  with  the  function  code  01H 
in  register  C;  the  character  from  the  console  will  he 
returned  in  the  Accumulator 

~  for  output  to  the  console,  a  call  is  made  to  MIS 
address  0005H  with  the  function  code  02H  in  register  C, 
and  the  character  for  output  in  the  Accumulator 
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-  to  merely  check  to  see  if  input  has  been  received 
from  the  HOST,  address  0005H  is  called  with  function 
code  03H  in  register  C  J  if  no  character  is  waiting  the 
accumulator  will  be  returned  =  00H,  otherwise  A  =  0FFB 
meaning  input  has  been  received 

-  if  a  call  is  made  to  MBS  address  0005H  with  a 
function  code  in  register  C  other  then  01H,  02H  or  03K, 
no  I/O  will  take  place  and  the  C  register  will  be 
returned  with  0FFH 

**  Two  points  should  be  remembered  when  using  the 
HOST  console  for  I/O: 

1)  the  data  returned  from  the  I/O  port  is  a  full 
eight  bits  as  received  with  no  stripping  of  the  high 
order  bit  for  ASCII  data 

2)  when  the  console  is  to  be  used  for  user  program 
I/O,  be  sure  to  answer  yes  to  the  query  about  console 
I/O  when  option  'N '  is  selected 

c)  if  no  I/O  with  the  host  console  is  necessary,  as 
in  a)  above,  the  user  program  should  at  least 
periodically  check  the  HOST  port  status  to  see  if  it 
wants  to  terminate  the  execution  of  the  user  program.  If 
data  is  waiting  a  call  should  be  made  as  explained  above 
to  fetch  the  data  so  that  the  monitor  can  interpret  it 
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d)  the  user  always  returns  control  to  the  HOST  via  a 
jump  to  location  0038H  in  MLS  memory;  a  RST  7 
instruction  will  also  accomplish  the  same  thing 

e)  do  not  forget  that  MLS  user  memory  starts  at 
location  4000H  and  all  HEX  files  should  be  assembled  for 
addresses  above  that  location 
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7.  SYSTEM  ERROR  MESSAGES 

System  error  messages  are  the  result  of  either  user 
data  input  errors  or  disk  I/O  errors.  A  list  with  brief 
explanations  follows: 

A.  USER  INPUT  ERRORS  - 

INVALIE  MENU  SELECTION  -  this  message  is  displayed 
when  an  option  is  input  which  is  not  one  of  the 
selections  from  the  menu.  this  error  returns  the  user 
to  the  menu  *) 

TOO  MANY  OR  TOO  FEW  DELIMITERS  IN  INPUT  -  used  to 
indicate  that  too  many  or  too  few  parameters  were  input 
than  expected.  Acceptable  delimiters  are  a  space  or  a 
comma.  (*  this  error  restarts  the  current  option  *) 


PERIOD  ONLY  PLEASE  ! 

-  given 

when  a 

period  is  input 

to  terminate  input  and 

the 

period 

is  preceded  or 

followed  by  other  input 

data . 

Only  a 

period  may  be 

input.  (*  this  error  restarts  the  current  option  #) 

INVALIE  HEX  DIGIT  -  an  input  of  a  non-Hex  digit  (not 
in  the  range  2-9,  A-F)  was  attempted.  (*  this  error 
restarts  the  current  option  *) 
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CAN'T  HAVE  A  DELIMITER  AT  START  CR  END  OF  INPUT  - 
either  a  space  or  a  comma  was  input  as  the  first  or  last 
charicter  in  an  input  line.  (*  this  errorestarts  the 
current  option  *) 

TWO  OR  MORE  DELIMITERS  SEQUENTIALLY  -  too  many 
delimiters  were  inserted  between  input  parameters.  ( * 
this  error  restarts  the  current  option  *) 

AMBIGUOUS  FILENAMES  NOT  ALLOWED  -  the  filename  which 
was  input  contained  a  '?'  .  (*  this  error  reprcmpts  for 
new  input  *) 

COLON  (:)  NOT  PROPERLY  PLACED  IN  FILENAME  -  the  only 
colon  allowed  in  the  filename  is  after  the  drive  code 
and  before  the  first  letter  of  the  filename.  (*  this 
error  reprompts  for  new  input  *) 

FILENAME  TOO  LONG  OR  TOO  SHORT  -  maximum  filename 
length  is  8  characters;  minimum  is  1.  (*  this  error 
reprompts  for  new  input  *) 

HEX  FILETYPES  ONLY  !  -  only  files  of  type  '.HEX'  are 
Implemented  in  this  version.  (*  this  error  reprompts  for 
new  input  *) 


NO  SPACES  ALLOWED  IN  FILENAME  -  filename  characters 
must  be  sequential  with  no  spaces.  (#  this  error 
reprompts  for  new  input  *) 


NON-PRINTABLE  CHARACTERS  NOT  ALLOWED  IN  FILENAME  - 
only  printable  characters  are  allowed  in  filename.  (* 
this  error  reprompts  for  new  input  *) 


START  ADDRESS  CANNOT  BE  GREATER  THAN  FINISH  ADDRESS 
-  when  in  the  UPLOAD  option,  the  user  must  specify  MIS 
memory  address  boundaries  for  upload  with  the  start 
address  lower  than  the  end  address.  (*  this  error 
restarts  the  upload  option  * ) 


WARNING  -  ONLY  CURRENTLY  SELECTED  DISK  WILL  IE  USED, 
INPUT  IGNORED  !  -  this  version  of  AMDS  does  not  allow 
disk  drive  specification  unless  it  is  the  same  as  the 
disk  currently  logged  in  to  the  user.  Other  drive 
specifications  are  ignored  and  the  option  defaults  tc 
the  currently  logged  disk. 

B.  DISK  I/O  ERRORS  - 


FILE  NOT  FOUND  -  the  file  specified  cannot  be  found 
in  the  directory  for  download  to  the  MDS.  (*  this  error 
restarts  the  download  option  *) 


HEX  CHECKSUM  ERROR  -  a  data  error  was  detected  while 
trying  to  download  a  HEX  file.  (#  this  error  returns  the 
user  to  the  menu  *) 

IISK  REAE  ERROR  -  an  attempt  was  made  to  read  a  disk 
file  hut  was  unsuccessful;  check  diskette  media  then  the 
disk  drive.  (*  this  error  returns  the  user  to  the  menu 
*) 

OUT  OF  EIRECTORY  SPACE  -  disk  directory  is  full; 
delete  files  or  use  another  diskette.  (*  this  error 
returns  the  user  to  the  menu  *) 

OUT  OF  DIRECTORY  OR  DISK  STORAGE  SPACE  -  ran  out  of 
space  in  one  of  these  areas  while  attempting  to  write 
data  to  a  disk;  ***  when  this  occurs,  the  data  already 
written  is  deleted,  i.e.  NO  PARTIAL  files  are  saved  . 
(*  this  error  returns  the  user  to  the  menu  *) 


OPTION  F 


PRINT 

SIGNOFF 


DOWNLOAD  HEX  FILE  TO  MDS  MEMORY 


(HOST  FLOW) 


(MDS  FLOW) 
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UPLOAD  FROM  MDS  MEMORY  TO  HEX  DISK  FILE 


(MDS  FLOW) 
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CONTINUOUS  MDS  MEMORY  SET 


(HOST  FLOW) 


(MDS  FLOW) 


FILL  MDS  MEMORY  WITH  SPECIFIED  BYTE 


LOCATE  BYTE  SEQUENCE  IN  MDS  MEMORY 


Q  MENU  ^ 


(HOST  FLOW) 


(MDS  FLOW) 
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DUMP  MDS  MEMORY  TQ  THE  HOST  CONSOLE 


(HOST  FLOW) 


(MDS  FLOW) 
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EXECUTE  USSR  PROGRAM  IN  MDS  MEMORY 


(HOST  FLOW)  (MDS  FLOW) 
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APPENDIX  C 


AMDS  HOST  CONTROL  SOFTWARE  LISTING 


*  * 

*  AMDS  -  ALTOS  MICROCOMPUTER  DEVELOPMENT  STSTEM  # 

*  (HOST  CODE)  * 

*  * 

*  VERSION  1.5,  28  MAY  1981  * 

*  LT.  STEPHEN  M.  HUGHES  -  author  * 

*  * 

*  This  is  the  HOST  (ALTOS)  control  code  for  the  AMDS. 

*  Separate  code  for  the  MDS  onboard  monitor  is  listed 

*  under  the  filename  AMIS1.ASM  . 

*  The  AMDS  user's  manual  should  be  consulted  for 

*  specifics  not  given  in  the  documentation  which  follows. 

* 

*#*####**  #  jjc#  #  *j)ei(c*  *  jje#  :*  $  *  sjt  # 


org 

100h 

CPM 

EQU 

0000H 

» WARM  BOOT  RE-ENTRY  TO  C?/M 

EDOS 

EQU 

0005H 

;dos  ENTRY  POINT 

MSTATPT 

EQU 

2SH 

{MDS  SIO  STATUS  PORT 

MDATAPT 

EQU 

28H 

5MDS  SIO  DATA  PORT 

CONIN 

EQU 

1 

{  CONSOLE  INPUT  FUNCTION 

CONOUT 

EQU 

2 

{  CONSOLE  OUTPUT  FUNCTION 

PRTSTRG 

EQU 

9 

{PRINT  STRING  TO  CONSOLE 

READCON 

EQU 

10 

;reai  console  euffer 

CONST 

EQU 

11 

j  CONSOLE  STATUS  FUNCTION 

OPENF 

EQU 

15 

50PEN  FILE  FUNCTION 

CLOSEF 

EQU 

16 

{CLOSE  FILE  FUNCTION 

DELF 

EQU 

IS 

DELETE  FILE  FUNCTION 

READF 

EQU 

20 

{READ  SEQUENTIAL  FUNCTION 

WRITEF 

EQU 

21 

iWRITE  SEQUENTIAL  FUNCTION 

MAKEF 

ECU 

22 

{MAKE  FILE  FUNCTION 

CURRNTD 

EQU 

25 

;get  current  disk  function 

SETDMA 

EQU 

26 

{SET  DMA  ADDRESS  FUNCTION 

CR 

EQU 

0DH 

{ASCII  CARRIAGE  RETURN 

LF 

EQU 

0AH 

.‘ASCII  LINE  FEED 

ESC 

EQU 

1BH 

{ASCII  ESCAPE  CODE 

COMMA 

EQU 

0  * 

f 

{ASCII  COMMA 

PERIOD 

EQU 

0  0 

• 

{ASCII  PERIOD 

SPACE 

EQU 

0  0 

{ASCII  SPACE 

BKSPCE 

EQU 

09H 

{ASCII  BACK-SPACE 

XON 

EQU 

011H 

{CONTROL  Q 
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*  * 


MlNCHCE 

EQU 

'A'  ANE  1FH 

’MINIMUM  MENU  CHOICE 

MAXCHCE 

EOU 

'n'+1  ANE  1FH 

JMAXIMUM  MENU  CHOICE 

EOF 

EQ'J 

1AH 

CONTROL  Z  -  END  OF  FILE  or 

BUFFER  INEICATOR 

NHSTCME 

EQU 

6 

CURRENT  NUMBER  OF  HOST  CNL5 

STACK 

EQU 

$ 

’64  LEVEL  STACK  AVAILABLE 

STARTER 

XRA 

A 

INITIALIZE  HOST  IN  CONTnOL. 

STA 

SYSSTAT 

STA 

MENUSUPF 

MENU  NOT  SUPPRESSEE 

LXI 

D , S IGNON 

PRINT  SIGNON  ANE  BASIC 

INSTRUCTIONS 

CALL 

PRINT 

MENU 

XRA 

A 

UNIT.  MESREYF  EVERY  TIME 

STA 

MDSRDYF 

INR 

A 

DEFAULT  TO  NO  MENU 

STA 

MENUFLG 

SUPPRESSION  ON  MENU  ERRORS 

OTHER  THAN  INVALID  CEOICE 

MV  I 

A, 48 

INIT .  CONSOLE  READ  BUFFER 

STA 

CONBUFF 

TO  48  CHARACTERS  MAX 

LXI 

SP, STACK 

SET  STACK  POINTER 

LEA 

MENUSUPF 

PRINT  MENU? 

ORA 

A 

JNZ 

MENU01 

NO 

LXI 

E.MENUMSG  ,*YES 

CALL 

PRINT 

MENU01 

CALL 

STATSYS 

DISPLAY  SYSTEM  STATUS 

CALL 

BUFFRE 

’GET  MENU  CHOICE 

XRA 

A 

J  NO  DELIMITERS  ALLOWED 

CALL 

SCAN  ; CHECK  INPUT  FOR  DELIMITERS 

JNC 

MENU011 

SCAN  OK 

LXI 

D.MFEELERR 

INPUT  ERROR  (SYNTAX  LIKELY) 

CALL 

PRINT 

CALL 

EELAY 

EELAY  TO  READ  ERROR  MSG 

JMP 

MENU 

BACK  TO  MENU 

MENU011 

I  NX 

D 

ALL  INPUT  OK,  POINT  TO  IT 

ECR 

B 

AT  END  OF  BUFFER  YET? 

JNZ 

MENU011 

NO,  TRY  AGAIN 

LDAX 

D 

GST  OPTION 

ANI 

1FH 

DELETE  ASCII  BIAS 

CPI 

MlNCHCE 

IS  CHOICE  <  'A'? 

JC 

MENU012 

YES,  ILLEGAL  CHOICE 

CPI 

MAXCHCE 

IS  CHOICE  VALID? 

JC 

MENU013 

APPEARS  TO  BE 

MENU012 

MV  I 

A  » 1 

NO  -  PRINT  ERROR  MSG  #1 

JMP 

ERROR 

MENU013 

PUSH 

PSW 

SAVE  OPTION 

CPI 

NHSTCMD 

IF  HOST  CMD ,  MDS  CONTROL 

JC 

MENU014 

HAS  NO  EFFECT  (EXCEPT 

;  EXIT  CME) 
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LDA 

ORA 

SYSSTAT 

A 

;get  system  status 

JZ 

MENU014 

{HOST  IN  CONTROL 

LX  I 
CALL 

D.CNTRLMSG 

PRINT 

;MDS  IN  CONTROL 

JMP 

MENU 

{ONLY  ESCAPE  WILL  GET 
!  CONTROL  BACK 

MENU014  POP 

PSW 

•RETRIEVE  OPTION 

MENU1 

STA 

MENUFLG 

{SAVE  CHOICE  FOR  USE  IN 
!  HELPING  USER  LATER 

CALL 

MENUCH 

{BRANCH  TO  APPROPRIATE 
;  CHOICE 

MENUCH 

MOV 

MV  I 

LXI 

DAD 

DAE 

DAE 

PCHL 

NOP 

NOP 

C  ,  A 
£  ,0 

3,  CHOICE-3 

B 

B 

B 

5  COMPUTE  MENU  CHOICE  VECTOR 

5  CHOICE  VECTOR  IS  IN  PC 

*  THIS 

JUMP  TABLE  MAY  BE  ADDED 

TO  FOR  FUTURE  EXPANSION  UP  * 

*  TO 

26  MENU 

CHOICES  * 

CHOICE 

JMP 

MENSUP 

•SUPPRESS  MENU 

JMP 

NOMENSUP 

JEO  NOT  SUPPRESS  MENU 

JMP 

INST 

{INSTRUCTIONS 

JMP 

HEXARITH 

JHEX  SUM  &  DIFF. 

JMP 

RCNT2HST 

{  RETURN  CONTROL  TO  HOST 

JMP 

CPM 

{  RETURN  TO  CPM 

*  MDS 

COMMAND 

JUMP  TA3LE  * 

JMP 

EWNLE 

•'DOWNLOAD  HEX  FILE 

JMP 

UPLD 

{UPLOAD  HEX  FILE 

JMP 

EXAM 

{  EXAMI NE/SET  MDS  MEMORY 

JMP 

CSET 

• CONTINOUS  SET  W/O  EXAMINE 

JMP 

FILL 

I  FILL  MBS  MEMORY 

JMP 

LOCATE 

{LOCATE  EYTE  SEQUENCE  IN 
{  MDS  MEMORY 

JMP 

DUMP 

•DUMP  MDS  MEMORY 

JMP 

EXEC 

{EXECUTE  MDS  MEMORY 

***  HOST  COMMANDS  ONLY  -  MDS  DOESN'T  CARE  WHAT  IS  *** 
***  HAPPENING  *** 

*  MENU  SUPPRESSION  * 
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MENSUP  MVI 
STA 
JMP 


A  ,  1 

MENUSUPF 

MENU 


JSST  MENU  SUPPRESSION  FLAG 


*  NO  MENU  SUPPRESSION  (DEFAULT)  * 

NOMENSUP  XRA  A  JRESET  MENU  SUPPRESSION  FLAG 

STA  MENUSUPF 

CALL  CRLF 
JMP  MENU 

*  INST  -  INSTRUCTIONS  * 


INST 

LXI 

CALL 

D.INSTRUC 

PRINT 

JPRINT  INSTRUCTIONS 

INST1 

CALL 

RRC 

CONSTAT 

JWAIT  FOR  RESPONSE 

JNC 

INST1 

JLOOP 

CALL 

JMP 

CONSIN 

MENU 

JGET  CHARACTER 

*  HEXARITH  -  ADDITION /SUBTRACT ION  OF  T'*0  HEXADECIMAL  * 

*  NUMBERS  * 


HEXARITH  LXI 

D.HEXMSG 

CALL 

PRINT 

CALL 

BUFFRD 

MV  I 

A  f  1 

CALL 

SCAN 

JNC 

HEX1 

MV  I 

A  ,2 

JMP 

ERROR 

HEX1  CALL 

GET4BIN 

SHLD 

FIRST 

CALL 

GET4BIN 

SHLD 

SECOND 

MOV 

B,H 

MOV 

C ,  L 

LHLD 

FIRST 

DAD 

B 

SHLD 

SUM 

LHLD 

FIRST 

ORA 

A 

MOV 

A  ,L 

SUB 

C 

MOV 

L ,  A 

MOV 

A  ,H 

SBB 

B 

MOV 

H,A 

PUSH 

H 

JPRINT  VERIFICATION  MESSAGE 
JGET  INPUT 

50NE  DELIMITER  RECUIREE 
J  CHECK  FOR  IT 
J  ALL  DELIMITERS  OK 
JDELIMITER  ERROR 

JGET  FIRST  NUMBER 
J  SAVE  IT 

JGET  SECOND  NUMBER 
J  SAVE  IT 

JBC  =  SECOND  NUMBER 

JHL  =  FIRST  NUMBER 
JHL  =  HL  +  BC 
JSAVE  SUM 

JHL  =  FIRST  NUMBER 

J CLEAR  CARRY 

JHL  =  HL  -  BC  -  CARRY 
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POP 

B 

?BC  =  DIFFERENCE 

LXI 

H,HEXMSG2+? 

» CONVERT  FOR  PRINTING 

CALL 

CNVT16 

LHLE 

SUM 

JNOW  PREPARE  SUM  FOR 

PUSH 

H 

;  PRINTING 

POP 

B 

; BC  =  SUM 

LXI 

H.HEXMSG1+6 

CALL 

CNVT16 

LXI 

D ,HEXMSG1 

J  PR I NT  SUM  &  DIFFERENCE 

CALL 

PRINT 

CALL 

CRLF 

JMP 

MENU 

JRSTURN  to  menu 

***  MES  COMMANDS  -  INITIATE!  BY  HOST  IN  ALL  CASES  *** 
*  DWNLD  -  HEX  FILE  DOWNLOAD  FROM  DISK  TO  MDS  MEMORY  * 


DWNLD 

LXI 

D , DWNLDMSG 

CALL 

PRINT 

CALL 

GETFILEN 

LXI 

D  ,FCB 

CALL 

OPENFILE 

CPI 

255 

JNZ 

OPENOK 

MV  I 

A, 13 

JMP 

ERROR 

OPENOK 

MV  I 

A/W' 

C  ALii 

MLSCMD 

XRA 

A 

STA 

CONTFLG 

STA 

FIRSTIME 

RDFILE 

LXI 

H.DSOUFF 

CALL 

READSK 

LXI 

H,DSK3UFF 

RECHD 

MOV 

A,M 

CPI 

/  ' 

• 

• 

JZ 

RECLEN 

I  NX 

H 

CALL 

EOFCK 

JMP 

RECHD 

RECLEN 

MV  I 

B,0 

CALL 

hexbin 

ORA 

A 

JZ 

DWNLDNE 

STA 

BUFFCNT 

MOV 

C  ,  A 

CALL 

MDATAOUT 

CALL 

GETSADR 

PRINT  VERIFICATION  MESSAGE 

GET  &  CHECK  FILENAME 
OPEN  FILE 

FILE  FOUND? 

YES 

NO,  ERROR 

SENE  DOWNLOAD  CME  TO  MES 

RESET  CONTINUATION  5. 

FIRST  THROUGH  LOOP  FLAGS 

POINTER  TO  DISK  BUFFER 
READ  IN  AS  MUCH  AS  POSSIBLE 
NOW  CONVERT  IT  TO  BINARY  $. 

SENE  I?  TO  MDS 
FIND  ' AS  RECORD  START 

FOUND  IT 

END  OF  FILE/BUFFER? 

NO,  TRY  AGAIN 
INIT.  CHECKSUM 
GST  RECORD  LENGTH 
IF  RECLEN=0,  THEN  DONS 
DONE 

SAVE  THE  RECLEN 
NOT  DONE  -  SAVE  RECLEN 
SENE  IT  TO  MDS 
GET  START  ADDRESS 


?5 


LIA 

RRC 

firstime 

JC 

RECLEN1 

DCR 

A 

STA 

FIRSTIME 

SHLD 

START 

RECLEN1 

SHLD 

FINISH 

CALL 

XCHG 

AEDROUT 

CALL 

HEXBIN 

HEXDATA 

CALL 

HEXBIN 

CALL 

MDATAOUT 

DCR 

C 

JNZ 

HEXDATA 

CALL 

CHECKIT 

INX 

a 

JMP 

RECHE 

DWNLDNE 

LHLD 

START 

PUSH 

H 

POP 

B 

LXI 

H.DWNDONE1+20 

CALL 

CNVT16 

LHLD 

FINISH 

LDA 

3UFFCNT 

ADD 

L 

MOV 

l,a 

MOV 

A ,  H 

AC  I 

0 

MOV 

h,a 

PUSH 

H 

POP 

B 

LXI 

H,EWND0NEl+43 

CALL 

CNVT16 

LXI 

E ,DVNDONE 

CALL 

PRINT 

CALL 

DELAY 

CALL 

HOSTDONE 

JMP 

MENU 

GETSADR 

CALL 

HEXBIN 

MOV 

D,A 

CALL 

HEXBIN 

MOV 

XCHG 

RET 

E  ,A 

CHECKIT 

CALL 

HEXBIN 

XRA 

A 

ADD 

RZ 

B 

;lf  first  time  through  loop 

)  THEN  SAVE  ACER  FOR  LATEF 

;not  first  time 

5SET  THE  FLAG 

;  and  save  the  address 

‘.SAVE  OTHER  LOAD  A DIRS 
ISEND  ADDRESS  TO  MDS 

;gst  buffer  pointer  back 

.•IGNORE  RECORD  TYPE 

;get  data  byte 

ISEND  DATA  TO  MDS 
; DECREMENT  RECORD  LENGTH 
;  MORE  TO  GET 
‘.SEE  IF  CKSUM  IS  OK 

;get  next  record 
;get  starting  load  aldr 

5PREPARE  IT  FOR  PRINTING 


JNO’V  READY  THE  FINISH  AILR 
.  GET  RECLEN 


I  PHI  NT  COMPLETION  MESSAGE 


;tell  mis  done 


;get  starting  load  address 

;  FOR  RECORD 


?HL  =  LOAD  ADDRESS 

;de  =  buffer  pointer 


; CHECK  FOR  CORRECT  CHECKSUM 

; SHOULD  BE  ZERO 
;  OK 


MVI 

JMP 


A  ,14 
ERROR 


J CHECKSUM  ERROR 


*  UPLE  -  HEX  FILE  UPLOAI  (SAVE)  OF  MLS  MEMORY  TO  LISE  * 


UPLD  MVI  A, 123 

STA  BUFFCNT 

LXI  E.UPLEMSG 

CALL  PRINT 

CALL  GETFILEN 

LXI  E  ,FCB 

CALL  DELETE 

CALL  CREATE 

CPI  255 

JNZ  UPLD01 

MVI  A ,16 

JMP  ERROR 

UPLD01  CALL  BUFFED 

MVI  A  ,  1 

CALL  SCAN 

JNC  UPLDl 

MVI  A, 2 

JMP  ERROR 

UPLDl  CALL  GET4BIN 

SHLE  START 

CALL  GET4BIN 

SHLD  FINISH 

XCHG 

LHLE  START 

MOV  A ,  E 

SUB  L 

MOV  A  ,E 

SBB  H 

JNC  UPLE2 

MVI  A ,  1? 

JMP  ERROR 

UPLE2  MVI  A,'U' 

CALL  MESCME 

LHLD  START 

CALL  AEEROUT 

LHLE  FINISH 

CALL  ADDROUT 

LXI  H,DSKBUFF 

UPLE3  MVI  A,':' 

CALL  BUFFCK 

CALL  WRITLEN 

CALL  WRITAEER 

CALL  WRITEATA 

CALL  WRITCKS 


IN  IT .  BUFFER  COUNT 

PRINT  VERIFICATION  MESSAGE 

GET  FILENAME  S.  CHECK  IT 

DELETE  ANY  EXISTING  FILE 
CREATE  A  NEW  FILE 
CREATE  OK? 

YES 

NO,  OUT  OF  EIRECTCRY  SPAC 

GST  ADDRESS  INPUTS 
ONE  EELIMITER  ALLOWED 

SCAN  OK 
ERROR 

GET  MDS  START  S,  FINISH 
ADDRESSES  FOR  UPLOAD 


;EE  =  FINISH  ADDRESS 
5  CHECK  FOR  START  >  FINISH 


;  OK 

;ERRCR  -  START  >  FINISH 
J SENE  UPLOAD  CME  TO  MDS 
; SEND  START  S.  END  ADDRESSES 


,’STCRS  RECORD  HEADER 

i STORE  RECORE  LENGTH 
» STORE  STARTING  LOAD  AEER 
;  &  RECORD  TYPE 
JGET  AND  STORE  DATA 
i STORE  CHECKSUM  &  CR  ,LF 


JMP 

UPLD3 

WRITLN01  XRA 

A 

JMP 

WRITLEN1 

WRITLEN  MV I 

A  ,16 

WRITLEN1  MV  I 

B  ,0 

CALL 

BINHEX 

RET 

WRITAEER  LEA 

START+1 

CALL 

BINHEX 

LEA 

START 

CALL 

BINHEX 

PUSH 

H 

LHLE 

START 

LX  I 

E ,  16 

DAD 

D 

SHLD 

START 

POP 

H 

XRA 

A 

CALL 

BINHEX 

RET 

WRITDATA  MV I 

C  ,16 

WRITETA1  CALL 

MESIN 

LEA 

MESREYF 

RRC 

JC 

WRITENE 

CALL 

BINHEX 

DCR 

C 

RZ 

JMP 

WRITETA1 

WHITENS  XRA 

A 

DCR 

C 

JZ 

VRTEN001 

CALL 

BINHEX 

JMP 

WRITENE 

WRTIN001  CALL 

WRITCKS 

CALL 

WRITENE 

LLA 

buffcnt 

MOV 

B,A 

CPI 

128 

JZ 

WRITENE1 

WRITEN01  MV  I 

M,EO? 

I  NX 

3 

DCR 

B 

JNZ 

WRITEN01 

CALL 

WRITEESK 

WRITENE1  CALL 

CLOSFILE 

LXI 

E.UPLEONE 

CALL 

PRINT 

CALL 

DELAY 

JMP 

MENU 

; DO  ANOTHER  HEX  RECORD 
5 WRITE  LENGTH,  ALTERNATE 
J  ENTRY  FOR  ZERO  RECLEN 
ULL  RECORDS  HAVE  RECLEN=16 
;  EXCEPT  THE  LAST 
; IN  IT  -  CHECKSUM 
{CNVRT  TO  HEX  ASCII  S  STORE 

, ‘STORE  RECORD  START  AEtR 


{SAVE  SUFFER  POINTER 

; BUMP  start  addr  for  next 
;  time 

{RESTORE  BUFFER  POINTER 
{STORE  RECORD  TYPE 


{DATA  COUNTER 
{GET  DATA  FROM  MLS 
{MORE  DATA  OR  MLS  LONE? 

{  MLS  LONE 
{MORE  DATA 
{16  BYTES  YET? 

{  YES 

{  NO,  CONTINUE 

{FILL  REMAINLER  OF  RECORE 
{  WITH  ZEROS 


{STORE  CHECKSUM 
{STORE  LAST  RECORD 
{IS  BUFFER  FULL? 


YES 

NO,  FILL  REMAINLER  WITH 
EOF 's 

LONE  WITH  FILL? 

NO,  CONTINUE 

YES,  WRITE  RECORD  TO  DISK 
CLOSE  THE  FILE 
PRINT  COMPLETION  MESSAGE 
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WRITCKS  MCV 

A ,  B 

I  STORE  CHECKSUM 

CMA 

JGET  NEGATIVE  OF  SUM 

INR 

A 

J  AEE  ONE 

CALL 

BINHEX 

MV  I 

A  ,C  R 

I  STORE  CR ,LF  SEQUENCE  AT 

CALL 

BUFFCK 

;  HEX  RECORE  ENE 

MV  I 

A  ,LF 

CALL 

BUFFCK 

RET 

WRIT  EN D  MV  I 

A 

; STORE  LAST  HEX  RECORE 

CALL 

BUFFCK 

CALL 

WRITLN01 

ISTORE  00  RECORE  LENGTH 

XCHG 

IDE  =  BUFFER  POINTER 

LXI 

H.0000H 

ISTORE  0000  LOAE  AEER  S. 

SHLE 

START 

I  RECORE  TYPE 

XCHG 

;  HL  =  BUFFER  POINTER 

CALL 

WRIT AEER 

CALL 

WRITCKS 

;  STORE  CHECKSUM 

RET 

BUFFCK  MOV 

M ,  A 

ISTORE  EATA 

I  NX 

a 

LDA 

BUFFCNT 

IIS  BUFFER  FULL? 

ECR 

A 

JZ 

WRITEIT 

I  YES  ,  SAVE  IT  ON  EISK 

STA 

BUFFCNT 

I  MO,  SAVE  COUNT 

RET 

WRITEIT  CALL 

WRITEESK 

I  WRITE  128  BYTE  RSCORE  TO 

I  DISK 

LXI 

H.ESKBUFF 

IREINIT.  BUFFER  AREA 

MV  I 

A  ,128 

I  AND  BUFFER  COUNT 

STA 

BUFFCNT 

RET 

*  EXAM  -  EXAMINE/SET  MES  MEMORY 

LOCATION { S )  * 

EXAM  LXI 

E , EXAMSG 

IPRINT  VERIFICATION  MESSAGE 

CALL 

PRINT 

CALL 

BUFFRD 

I  GET  ADDRESS  INPUT 

XRA 

A 

I  NO  DELIMITERS  ALLOWED 

CALL 

SCAN 

.’DELIMITER  CHECK 

JNC 

EXAM01 

I  SCAN  OK 

MV  I 

A, 2 

I  INPUT  ERROR  (SYNTAX  OR  HEX ) 

JMP 

ERROR 

EXAM01  CALL 

GET4BIN 

I  GET  START  ADDRESS 

SHLE 

START 

MV  I 

A,'x' 

I  SENE  EXAM/SET  CME  TO  MES 

CALL 

MESCMD 

LHLE 

START 

CALL 

AEEROUT 

ISENE  START  ADDRESS  TO  MES 

EXAM1  CALL 

MDSIN 

I  GET  DATA  IN  MDS  MEMORY 

STA 

MESEATA 

I  SAVE  IT 

PUSH 

H 

J  SAVE  AEER .  EEING  EXAMINEE 

MOV 

C  ,  A 

5C  =  MD3EATA 

LX1 

a  ,EXAMSG2+1 

5  CONVERT  EATA  FOR  PRINTING 

CALL 

CNVT8 

POP 

3 

5  GET  AEER.  BACK , 

PUSH 

B 

J  BUT  SAVE  IT 

LXI 

H  , EXAMSG1 

5  CONVERT  AEER.  FOR  FRINTING 

CALL 

XCHG 

CNVT16 

JEE  =  EXAMSG1 

CALL 

PRINT 

JPRINT  MIS  AEER.  S.  LATA 

CALL 

BUFFRD1 

;G2T  REPLACEMENT  EATA 

ORA 

A 

;  IF  NO  INPUT,  THEN  PUT  OLE 

JZ 

NOSET 

J  EATA  BACK 

XRA 

A 

?  NO  EELIMITERS  ALLOWED 

CALL 

SCAN 

JNC 

EXAM02 

;  SCAN  OK 

EXAM020 

MV  I 

A, 2 

?  INPUT  ERROR 

JMP 

ERROR 

;  START  OPTION  OVER 

EXAM02 

CALL 

CKPERIOE 

;  IF  INPUT  WAS  A  PERIOD , 

ORA 

A 

;  THEN  EONE 

JZ 

EXAM2 

5  N0  PERIOD,  GET  EATA 

RAR 

J  PERIOD  ONLY? 

JC 

EXEONE 

J  YES  -  ALL  EONS 

MV  I 

A, 3 

JMP 

ERROR 

J  NO  -  PERIOD  +  EATA  IS 

J  ILLEGAL,  START  OVER 

EXAM2 

CALL 

GET2BIN 

MOV 

A  ,  L 

JSENE  NEW  DATA 

JMP 

SET1 

NOSET 

LEA 

MESEATA 

JGET  OLE  EATA 

SET1 

CALL 

MEATAOUT 

POP 

H 

5BUMP  ADDRESS  FOR  EXAM /S ET 

I  NX 

H 

JMP 

EXAM1 

JGET  MORE  EATA  FRO"  MES 

EXDONE 

CALL 

HOSTDONE 

J3IGNAL  MES  DONE 

JMP 

MENU 

JBACK  TO  MENU 

*  FILL 

-  FILL 

MES  MEMORY  LOCATION(S)  WITH  SPECIFIED  EATA  * 

FILL 

LXI 

E.FILLMSG 

JPRINT  VERIFICATION  MESSAGE 

CALL 

PRINT 

CALL 

BUFFRD 

JGET  INPUT  ADDRESSES  +  FILL 

J  EATA 

MV  I 

A  ,2 

JT WO  ET!  IMITERS  REC'JIREE 

CALL 

SCAN 

J  CHECK  FOR  THEM 

JNC 

FILL1 

J  SCAN  OF 

MV  I 

A, 2 

J  JMP  ERROR 

JMP 

ERROR 

J  START  OPTION  OVER 

FILL1 

CALL 

GET4BIN 

JGET  START  ADDRESS 

SHLE 

START 

J  SAVE  IT 

r 


f 

i 


I 


CALL 

GET4BIN 

;get  finish  aebress 

SHLE 

FINISH 

;  SAVE  IT  too 

CALL 

JET2BIN 

;get  FILL  EATA 

MOV 

A  ,L 

»A  =  DATA 

STA 

CONSEATA 

;  SAVE  IT 

MV  I 

A,'?' 

*  SENE  FILL  CMC  TO  MES 

CALL 

MBSCMD 

L5LE 

START 

; SENE  START  AEER.  TC  MES 

CALL 

AEEROUT 

LHLE 

FINISH 

; SENE  FINISH  AEDR -  TO  ME3 

CALL 

AEEROUT 

LEA 

CONSEATA 

5  SENE  FILL  EATA  TO  MES 

CALL 

MDATAOUT 

MV  I 

A  ,  1 

;mes  in  control 

STA 

STSSTAT 

FILL2 

CALL 

MBS  IN 

;mbs  bone  filling? 

XRA 

A 

;  TES  -  CLEAR  FLAGS 

STA 

STSSTAT 

STA 

MESRBYF 

JMP 

MENU 

; RETURN  TO  MENU 

*  SENE 

16  BIT 

AEERESS  TO  MIS 

-  CALL  WITH  HL  =  AEBRESS  * 

AEEROUT 

MOV 

A, a 

JMSB  FIRST 

CALL 

MEATACUT 

MOV 

A  ,  L 

;  THEN  LSB 

CALL 

MEATAOUT 

RET 

JBACK  TO  CALLER 

*  CSET 

-  CONTINUOUS  SET  MBS 

MEMORY  WITHOUT  EXAMINE  * 

CSET 

LX  I 

E ,  CSETMSG 

>?R I NT  VERIFICATION  MESSAGE 

CALL 

PRINT 

MV  I 

A  ,0F?H 

;  I NIT  .  CONSOLE  REA  E  PUFFER 

STA 

CONBUFF 

,*  TO  255  CHARACTERS  MAX 

CALL 

3UFFRE 

!GST  START  AEBRESS 

XRA 

A 

;no  belimitebs  allowed 

CALL 

SCAN 

JNC 

CSET01 

;  SCAN  OK 

MV  I 

A  ,2 

;INPUT  ERROR 

JMP 

ERROR 

5 START  OPTION  OVER 

GSET01 

CALL 

GET4BIN 

SHLE 

START 

MV  I 

A, 'C' 

JSENE  CSET  CMC  TO  MES 

CALL 

MDSCMD 

LHLE 

START 

; SENE  start  aebress  to  mis 

CALL 

AEEROUT 

JMP 

CSET 11 

GSET1 

CALL 

CRLF 

CSST11 

CALL 

BUFFRE 

;GET  REPLACEMENT  EATA  TILL 

5  BUFFER  FULL  OR  <CR> 


J 
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CALL 

SCAN 

CALL 

CKPEP.i'OD 

ORA 

A 

JZ 

RAR 

CSET2 

JC 

CSET3 

MV  I 

A, 3 

JMP 

ERROR 

CSET2 

CALL 

STAR 

CSET21 

CALL 

•GET2BIN 

MOV 

A ,  L 

CALL 

MDATAOUT 

MOV 

C ,  A 

LX  I 

H.DATAMSG+l 

CALL 

XCHG 

CNVTS 

CALL 

XCHG 

PRINT 

MOV 

A ,  B 

CPI 

2FFH 

JZ 

CSET1 

CPI 

00 

JZ 

CSET1 

JMP 

CSET21 

CSET3 

CALL 

HOSTDONE 

JMP 

MENU 

*  EXEC 

-  EXECUTE  MDS  MEMORY 

EXEC 

LXI 

E  .EXECMSG 

CALL 

PRINT 

CALL 

BUFFED 

XRA 

A 

CALL 

SCAN 

JNC 

EXEC  1 

MV  I 

A, 2 

JMP 

ERROR 

EXEC1 

CALL 

GET43IN 

SHLD 

START 

LXI 

D.EXMSG 

CALL 

PRINT 

EXEC  11 

CALL 

RRC 

CONSTAT 

JNC 

EXEC  11 

CALL 

CONS  IN 

ORI 

20H 

CPI 

'y' 

JNZ 

EXEC  2 

{look  for  escape 

; CHECK  FOR  PERIOD  IN  INPUT 

;  NO  PERIOD,  GET  DATA 

{  PERIOD  ONLY  -  ALL  DONE 
5  INPUT  ERROR, 

{  START  OPTION  OVER 
JPRINT  A  LEADING  STAR 
5  PRIOR  TO  VALIDATION  DATA 
5GET  DATA 

{SEND  IT  TO  MIS 

{SEND  IT  TO  CONSOLE  FOP. 

{  VERIFICATION 

{DE  =  AIDR.  OF  EATAMSG 

{DE  =  CURRENT  CONBUFF  PTR 
{AT  END  CF  BUFFER? 

{  YES,  START  OVER 

{  YES,  START  OVER 

;no,  get  more  data 

{ NO  DATA  TO  SEND,  SIGNAL 
{  MDS  DONE 
{RETURN  TO  MENU 

ROM  A  SPECIFIED  ADDRESS  * 

{PRINT  VERIFICATION  MESSAG 

{GET  START  ADDRESS 
{NO  DELIMITERS  ALLOWED 

{  SCAN  OK 
{ERROR 

{START  OPTION  OVER 
{GET  START  ADDRESS 
{  SAVE  IT 

{SEE  IF  DATA  FROM  MDS  TO 
{  CONSOLE  OR  NOT 
{WAIT  FOR  RESPONSE 

;  LOOP 

{GET  RESPONSE 
{FORCE  TO  LOWER  CASE 
{CONSOLE  INPUT  FROM  MDS? 

5  NO,  SEND  CMD  &  RETURN  TO 
{  TO  MENU 
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r 


LX  I 

B.EXM5G2 

JGIVE  ESCAPE  METHODS 

CALL 

PRINT 

MV  I 

A,'E' 

5  YES,  SEND  CVL  TO  MES  S. 

call 

MESCMB 

{  LOOP  WAITING  FOR  DATA 

LHLL 

START 

;  OR  E ONE  FROM  MLS  OR  ESC 

,*  FROM  CONSOLE 

CALL 

ADDROUT 

EXEC022  CALL 

ML3IN 

{ LOOP  AT  MLS I N  TILL  ESC 

{  OR  '0'  OR  LATA 

MOV 

2, A 

{SAVE  DATA  FROM  MDS 

Ilk 

MDSRIYF 

?SEE  IF  MDS  liANTS  INPUT 

ORA 

A 

JNZ 

GSTINP 

;  yss 

CALL 

CONSQUT 

;  NO,  SENE  IT  TO  CONSOLE 

JMP 

EXEC020 

{  WAIT  FOR  MORE 

GSTINP  CALL 

CONSTAT 

JGET  INPUT  FROM  KEYBOARD 

ERC 

JNC 

GET  I NP 

call 

CONS  I N 

CALL 

MLATAOUT 

5SEND  IT  TO  MDS 

XRA 

A 

J  RESET  MESRDY  FLAG 

STA 

MDSRDY? 

JMP 

EXEC  020 

5L00P  AGAIN 

SXEC2  MV  I 

A,  'E' 

iSEND  MES  EXEC  CME 

CALL 

mdscmq 

LHLL 

START 

{SEND  START  AEERESS  TO  MES 

CALL 

AELROUT 

MV  I 

A  1 1 

? S ST  MDS  CONTROL  FLAG 

STA 

SYSSTAT 

JMP 

MENU 

{BACK  TO  MENU 

*  LOCATE  -  LOCATE  A  SPECIFIED 

BYTE  SEQUENCE  IN  MDS  MEMORY  * 

LOCATE  CALL 

CLRBUFF 

5  CLEAR  READ  BUFFER 

LX  I 

D,LOCMSG 

{PRINT  VERIFICATION  MESSAGE 

CALL 

PRINT 

MV  I 

A,0FFH 

{  INIT .  CONSOLE  READ  BUFFER 

STA 

CONBUFF 

{  TO  255  CHARACTERS  MAX 

CALL 

BUFFRD 

{GET  ADDRESS ( ES ) 

XRA 

A 

{ANY  DELIMITERS  ? 

CALL 

SCAN 

JNC 

L0CATE1 

{  NO,  USE  DEFAULT  FINISH 

{  ADDRESS 

MV  I 

A » 1 

{MORE  THAN  ONE  DELIMITER? 

CALL 

SCAN 

JNC 

LOC01 

{  NO,  GET  OPTIONAL  FINISH 

;  address 

MV  I 

A, 2 

{MORE  THAN  2  DELIMITERS 

JMP 

ERROR 

{  ERROR,  START  OPTION  OVER 

LOCATE!  CALL 

GST4BIN 

{GET  START  ADDRESS 

SHLD 

START 
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L0C21  CALL  GET4BIN 

5HLD  START 

CALL  GET4BIN 

3HLE  FINISH 

JMP  LOCDATA 

LOCI  LX  I  H.0FFFFH 

3HLL  FINISH 

LOCDATA  MV  I  A,  'l' 

CALL  MLSCML 

LHLE  START 

CALL  ADDROUT 

LHLE  FINISH 

CALL  ALEROUT 

MV  I  A, 16 

PUSH  PS W 

LCCIATA1  CALL  BUFFRE 
CALL  SCAN 

CALL  STAR 

L0CEATA2  CALL  GET2BIN 
MOV  A  ,  L 

CALL  MEATAOUT 

MOV  C  , A 

LX  I  H.DATAMSG+l 

CALL  CNVT8 

XCHG 

CALL  PRINT 

XCHG 

MOV  A  ,B 

CPI  0FFH 

JZ  LOC  5 

CPI  00 

JZ  L0C5 

POP  PSW 

ECR  A 

PUSH  PSW 

JZ  L0C5 

JMP  L0CEATA2 

L0C5  CALL  HOSTRDY 

CALL  MLS  I N 

ORI  80H 

CPI 

JZ  FOUNE 

LX  I  D , NOTFOUN  E 

JMP  ERROUT 

FOUNE  LXI  E , FOUNEMSG 


J  NO  COMMA,  FINISH  AErRESS 
!  EEFAULTS  TO  0FFFFH  - 
J  GET  EATA 
5GET  START  ALERESS 

?  COMMA,  GET  FINISH  AEERESS 


JSAVE  IEFAULT  FINISH  AEERESS 

•SEND  LOCATE  CME  TO  MDS 

JSENE  START  AEERESS  TO  MES 

JSENE  FINISH  AEERESS  TO  MES 

:  IS  BYTES  MAX 
;  SAVE  BYTE  COUNT 
JGET  SEARCH  SEQUENCE 
J LOOK  FOR  ESCAPE 
J  PRI NT  A  STAR 
JGET  A  BYTE 

JSENE  IT  TO  MES 

J  &  TO  CONSOLE  FOR 
J  VERIFICATION 


J AT  ENE  OF  BUFFER? 

J  YES,  WAIT  FOR  SEARCH 
J  RESULTS 

J  YES,  WAIT  FOR  SEARCH 
J  RESULTS 

J  NO,  GET  BYTE  COUNT 
J 16  BYTES  YET? 

JSAVE  BYTE  COUNT 
J  YES,  WAIT  FOR  SEARCH 
J  RESULTS 

J  NOT  AT  ENE  OR  16  BYTES 
J  TELL  MDS  TO  SEARCH 
JGET  MIS  RESPONSE 
J  LOCKING  FOR  ASCII 
J  BYTE  5SQ.  FOUND? 

J  YES 

J  PRINT  NOT  FOUND  MESSAGE 
J  BACK  TO  MENU 
J  PRI NT  FOUND  MESSAGE 
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CALL 

PRINT 

CALL 

MDSIN 

JGET  FOUND  ADDRESS  MSB 

MOV 

2 ,A 

CALL 

MESIN 

JGET  LSB  OF  ADDR 

MOV 

C,A 

LXI 

H.FOUNEMS1 

J CONVERT  AEER .  FOR  PRINTING 

XCHG 

CALL 

PRINT 

•PRINT  ADDRESS 

JMP 

MENU 

5 BACK  TO  MENU 

*  DUMP  ■ 

-  LUMP 

MES  MEMORY  LOCATIO 

N  ( S  )  * 

lump 

CALL 

CLRBUFF 

JCLEAR  READ  EUFFER 

LXI 

D ,  DUMPMSG 

J  PRINT  VERIFICATION  MESSAGE 

CALL 

PRINT 

CALL 

EUFFRE 

JGET  ADDRESS ( ES ) 

XRA 

A 

JANT  DELIMITERS? 

CALL 

SCAN 

JNC 

EUMP01 

j  no 

MV  I 

A  >  1 

J MORE  THEN  ONE  DELIMITER? 

CALL 

SCAN 

JNC 

IUMP010 

;  NO,  GET  OPTIONAL  FINISH 

J  ADDRESS 

MV  I 

A, 2 

•  MORE  THAN  ONE  DELIMITER 

JMP 

ERROR 

5  ERROR,  START  OPTION  OVER 

EUMP01 

CALL 

GET4BIN 

•GET  START  ADDRESS 

SHLD 

START 

JMP 

EUMP1 

J  NO  COMMA 

LUMP010 

CALL 

GET4BIN 

5GET  START  ADDRESS 

SHLD 

START 

CALL 

GET4BIN 

JGET  OPTIONAL  FINISH  AEIR 

SHLE 

FINISH 

JMP 

DUMP2 

IUMP1 

LHLE 

START 

;make  finish  address  = 

LXI 

B  ,0100K 

J  START  +  256 

DAD 

B 

SHLE 

FINISH 

LUMPS 

MV  I 

A,'E' 

JSEND  DUMP  CMD  TO  MES 

CALL 

MDSCMD 

LHLE 

START 

; SENE  START  AEIRESS  TO  MES 

CALL 

AEEROUT 

LHLE 

FINISH 

•SEND  FINISH  ADDRESS  TO  MDS 

CALL 

AEEROUT 

LUMP  3 

LXI 

E.EUMPMSG3 

•ASCII  DATA  STORAGE 

PUSH 

D 

CALL 

MSG3INIT 

J I  N IT  .  ASCII  STORAGE 

CALL 

MESIN 

JGET  BYTE 

MOV 

C  ,A 

LEA 

MESRLYF 

5MES  DONE  TRANSMITING  LATA? 

ORA 

A 

JNZ 

DUMPDONE 

;  YES 

85 


MOV 

A  ,C 

STA 

MLSEATA 

LHLD 

START 

MOV 

B.H 

MOV 

C ,  L 

LXI 

H , DUMPMSG 1 

CALL 

XCHG 

CNVT16 

CALL 

PRINT 

MV  I 

B  ,16 

LUMPDATA 

L  POP 

E 

LEA 

MLSEATA 

MOV 

C  ,  A 

CPI 

20H 

JNC 

IMPLTA1 

CALL 

SPERIOL 

JMP 

DMPDTA2 

LMPETA1 

CPI 

80S 

CNC 

SPERIOL 

LMFDTA2 

STAX 

D 

MOV 

A ,  C 

I  NX 

E 

PUSH 

D 

LXI 

H.EUMPMSG2+1 

PUSH 

3 

CALL 

XCHG 

CNVT8 

CALL 

PRINT 

POP 

3 

ICR 

B 

JZ 

NXTLINE 

CALL 

MLS  IN 

STA 

MLSEATA 

MOV 

C  ,A 

LLA 

MLSRLYF 

ORA 

A 

JNZ 

NXTLINE 

JMP 

EUMPLATA 

SFERIOL 

MV  I 

RET 

A,'.' 

NXTLINE 

LXI 

E ,LUMPMSG3 

CALL 

PRINT 

LXI 

B.0010H 

LHLE 

START 

LAE 

B 

5HLD 

START 

POP 

L 

LDA 

MLSRIYF 

ORA 

A 

;  NO  -  SAVE  LATA 
; BG  =  START  ADDRESS 


JSIXTEEN  BYTES  PER  LINE 
J RECALL  ASCII  LATA  STORAGE 
5  LOCATION 
JGET  LATA 

5  IS  LATA  ASCII  PRINTABLE? 

J  YES 

;  NO  -  STORE  A  PERIOD 

J GREATER  THEN  ASCII 
5  YES,  STORE  A  PERIOE 
J  STORE  DATA  AS  IS 
J  RESTORE  ORIGINAL  EATA 
J  BUMP  STORAGE  AEERESS 
?  AND  SAVE  IT 
JNQW  CONVERT  LATA  TO  HEX 
J  AND  PRINT  IT 
J5AVE  COUNT 


5GET  COUNT  BACA 
; 16  BYTES  YET? 

•  y2S 

5  NO  -  GET  NEXT  BYTE 

ISAVE  NEW  EATA 

JMDS  DONE  TRANSITING  EATA? 


J  YES 

;  NO  -  GET  NEXT  LINE  OF  LATA 
J  STORE  A  PER  I OL  IF  NOT  A 
;  PRINTABLE  ASCII  CHAR. 

J  PRl  NT  ASCII  CHARACTERS 

;go  to  NEXT  LINE 
J EUMP  NEW  LINE  START  ALLRESS 
J  BY  SIXTEEN  BYTES 
;  SAVE  IT 

JGET  GARBAGE  OFF  STACK 
J  LONE? 
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JNZ 

DUMPEONE 

;  YES 

CALL 

CRLF 

;start  new  line 

DUMP3 

iTUMF  TILL  EONS 

EUMPEONE 

A 

JCLSAR  MLS  LONE  XMITTING 

Si.* 

MESREYF 

CALL 

CRLF 

;  START  NEW  LINE 

CALL 

BUFFRE 

J  ANOTHER  LUMP? 

XRA 

A 

;  NO  DELIMITERS  ALLOWED 

CALL 

SCAN 

JNC 

EMPEONE1 

;  SCAN  OX 

MV  I 

A  ,2 

;  ERROR 

JMP 

ERROR 

;  START  OPTION  OVER 

El*PEONSl  I  NX 

E 

JPOINT  TO  END  OF  EUFFER 

ECR 

B 

THERE  YET? 

JNZ 

DMPEONE1 

;  NO,  LOOP 

LEAX 

E 

OS  I 

20H 

J  CONVERT  TO  LOWER  CASE 

CPI 

0  * 

a 

JZ 

EUMPMORE 

;  YES  -  LUMP  AGAIN  FROM 

;  PREVIOUS  finish  aler. 

JMP 

MENU 

;  NO  -  RETURN  TO  MENU 

EUMPMORE  LHLE 

FINISH 

JMAXE  FINISH+1  =  NEW  STAR 

I  NX 

H 

;  ADDRESS 

3BLD 

START 

JMP 

EUMP1 

•DUMP  256  MORE  BYTES 

MSG3INIT  MV I 

B  ,  17 

,‘INIT.  ASCII  LATA  STORAGE 

LX  I 

B.DUMPMS33 

J  AREA  TO  ALL  $  'S 

MV  I 

A/$' 

M3G31  STAX 

E 

DCR 

B 

RZ 

;  I N IT  .  EONE 

I  NX 

D 

JMP 

M3G31 

CLRBUFF  MV I 

B  ,255 

, ’CLEAR  CONSOLE  REAI  RUFFE 

LX  I 

E , CONBUFF+l 

MV  I 

A, 00 

JPUT  IN  ALL  ZEROS 

JMP 

MSG31 

*  RCNT2H3T  - 

RETURN  CONTROL  TO 

HOST  * 

RCNT2HST  LEA 

SY3STAT 

;gst  system  status 

ORA 

A 

JZ 

MENU 

;  HOST  already  in  control 

MV  I 

A,  'Q' 

; SEND  E5CAFE  TO  MES 

CALL 

MESCME 

XRA 

A 

>  RESET  SYSTEM  STATUS  FLAG 

STA 

3Y3STAT 

LXI 

E.ABORTEEM 

JPRINT  MLS  ABORTED  VERIFI 

CALL 

PRINT 

;  CATION 

CALL 

DELAY 

JMP 

MENU 
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***  UTILITY  SUBROUTINES  *** 


*  PRINT  A  STRING  TO  THE  CONSOLE 

*  CALL  *ITH  IE  =  STARTING  AEIRESS  OF  STRING  * 


PRINT 

PUSH 

PSW 

5SAVS  EVERYTHING 

PUSH 

B 

PUSH 

L 

PUSH 

a 

mV  i 

C ,PRTSTRG 

; OUTPUT  STRING  TO  CONSOLE 

CALL 

BIOS 

POP 

H 

>  RESTORE  ALL  REGISTERS 

POP 

D 

POP 

B 

POP 

PSW 

RET 

JBACK  To  CALLER 

*  STATSYS  -  LISPLAY  SYSTEM 

STATUS  * 

STATSYS 

CALL 

CRLF 

CALL 

CRLF 

LEA 

SY3STAT 

5  GET  SYSTEM  STATUS  FLAG 

ORA 

A 

LXI 

E .SYSMSG+15 

JZ 

SYS1 

*  HOS T  IN  CONTROL 

LXI 

H.MDSMSG 

;mls  in  control 

JMP 

SYS1+3 

;PUT  'MES'  IN  MESSAGE 

SYS1 

LXI 

H.HOSTMSG 

JFUT  'HOST'  IN  MESSAGE 

CALL 

MOVESTR 

LEA 

MENUSUPF 

5GET  MENU  SUPPRESSION  FLA: 

ORA 

A 

LXI 

D,SYSMSG+33 

JZ 

SYS3 

;  MO  SUPPRESSION 

LXI 

H ,  YE3MENMG 

>  SUPPRESSION 

JMP 

SYS3+3 

SYS3 

LXI 

H.NOMENMSG 

CALL 

MOVESTR 

LXI 

D.SYSMSG 

j  PRINT  SYSTEM  STATUS 

CALL 

PRINT 

CALL 

MENPMPT 

SPRINT  MENU  PROMPT 

RET 

; RETURN  TO  CALLER 

MOVESTR 

MOV 

A  ,M 

5HL  =  STRING  TO  MOVE 

CPI 

?LE  *  LEST INAT ION  ALLRESS 

RZ 

JRETURN  IF  MOVE  DONS 

STAX 

l 

J  NOT  TONE 

INX 

L 

I  NX 

H 

JMP 

MOVESTR 

JMOVE  NEXT  CHARACTER 

*  MENPMPT  -  PRINT  MENU  PROMPT  * 
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MSNPMPT 

LEA 

MENU3UP? 

.‘SUPPRESS  MENU? 

ORA 

A 

JZ 

MENPMTl 

;  NO 

LX  I 

C .MENUPROl 

;  YES  -  PRINT  SUPPRESEE 

CALL 

PRINT 

J  MENU  PROMPT 

RET 

MENPMT1 

LXI 

E , MEN UP ROM 

; PRINT  UNSUPPRESS  El  MENU 

CALL 

PRINT 

;  PROMPT 

RET 

**  ROUTINES  TO  GET  AND  CHEC K  FILENAMES  FOR  VALIDITY  ** 

**  ONLi 

’  INTEL  'HEX '  FILES  ARE 

SUPPORTED  BY  THIS  VERSION  ** 

*  GETFILEN  - 

INITIATE  CALLS  FOR 

inputting  filename  AnE 

4« 

MAKING  APPROPIATE 

CHECKS  * 

G iT  F I LE  N 

i  CALL 

CLRBUFF 

; CLEAR  CONSOLE  INPUT  3UFFER 

LXI 

E, FILENAME 

j PROMPT  FOR  FILENAME 

CALL 

PRINT 

CALL 

BUFFED 

JGET  FILENAME 

CALL 

FILENCK 

;DO  CHECKS  ON  FILENAME 

ORA 

A 

JSEE  IF  ANY  ERRORS 

JZ 

GETFN1 

?  NO  ERRORS 

CALL 

ERROR 

;  ERRORS 

JM? 

GETFILEN 

5  START  OVER 

GETFN1 

CALL 

MOVFN 

;MOVE  FILENAME  TO  FOB 

CALL 

UCASS 

J CON VERT  ALL  FILENAME 

RET 

ALPHABETICS  TO  UPPER  CASE 

*  FILENCK  -  INITIATE  ALL  FILENAME  CHECKS 

*  RETURN  A  = 

00  IF  NO  ERRORS 

•V 

T 

3= 

ERROR  NUMBER  IF  ERRORS  IN  FILENAME  * 

FILENCK 

CALL 

SCANQ 

?SCAN  FILENAME  FOR  '?' 

RRC 

JNC 

FNCK1 

*  NONE  FOUND 

MV  I 

A, 7 

; ERROR  -  NO  AMBIGUOUS 

RET 

?  FILENAMES 

FNCK1 

CALL 

SCANCOL 

; CHECK  FOR  AND  PROPER 

RRC 

?  LRIVE  SELECTION 

JNC 

FNCK2 

JSCAN  OK 

MVI 

A, 8 

;TOO  MANY  COLONS 

RET 

FNCK2 

CALL 

SCANUM 

JCHECK  FOR  TOO  MANY  OR  TOO 

RRC 

;  FEW  characters  IN  filenam: 

JNC 

FNCK3 

;no  error 

MVI 

A  f  9 

; ERROR 

RET 

FNCK3 

CALL 

CKPERIOE 

iCHECK  FILENAME  INPUT  FOR 

ORA 

A 

;  A  PERIOD 

JZ 

FNCK4 

5  NONE  FOUND 
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CALL  SCANHEX 
RRC 

JNC  FNCK4 

MV  I  A, 10 

RET 

FNCK4  XRA  A 

CALL  SCAN 

JNC  FNCK5 

MV  I  A, 11 

RET 

FNCK5  CALL  SCANINV 

RRC 

JNC  FNCK6 

MV  I  A, 12 

RET 

FNCK6  XRA  A 

RET 


5QNE  PER IQD,  CHECK  FCR 
;  'HEX'  FILETYPE 
;  FILETYPE  OK 

{ONLY  'HEX'  FILETYPES  ARE 

;  SUPPORTED 

JCHECK  FOR  ESCAPE  ANT 

J  OTHER  DELIMITER  ERRORS 

J  NONE  FOUNT 

;NO  SPACES  ALLOWED  IN 

;  FILENAME 

; CHECK  FOR  NO.M-PRINTARLE 
J  CHARACTERS  IN  FILENAME 
{NONE  FOUND 
JERROR 

JNO  ERRORS  DETECTED 
?  FILENAME  OK 


*  SCANQ  -  SCAN  FILENAME  FOR  QUESTION  MARKS  INDICATING  AN 

*  AMBIGUOUS  FILENAME 

*  RETURN  A  =  00  IF  NONE  FOUND 

*  =  0FFH  IF  FOUND  * 


SCANQ  PUSH  B 

PUSH  D 

PUSH  H 

XCHG 

MOV  C,M 

SCANQ01  I  NX  H 

MOV  A  ,M 

CPI  '?' 

JZ  SCANQ1 

DCR  C 

JNZ  SCANQ01 

XRA  A 

JMP  SCANQ1+2 

SCANQ1  MV  I  A ,0FFH 

POP  H 

POP  D 

POP  B 

RET 


SSL  =  BUFFER  +  1 
;&ET  BUFFR  COUNT 

JLOOK  FOR  '?' 

;  FOUND  ONE 
> KEEP  LOOKING? 

,’SCAN  NOT  DONE 

JSCAN  DONE  -  NO  ERRORS 

; AT  LEAST  ONE  '? '  FOUND 


*  SCANCCL  -  SCAN  FILENAME  FOR  A  '  THEN  LOOK  FOR  PROPER 

*  DRIVE  SELECT  CODE  (ONLY  CURRENT  DRIVE  IN  USE 

*  IS  SUPPORTED,  OTHERS  ARE  IGNORED) 

*  -  A  IN  ANY  OTHER  POSITION  IN  THE  FILENAME  IS 

*  NOT  LEGAL 

*  RETURN  A  =  00  IF  NO  ERROR 

*  =  0FFH  IF  AN  ILLEGAL  ' 


IS  FOUND  * 


i 


PUSH 

E 

PUSH 

H 

CALL 

CURESK 

JGST  CURRENT  IISK 

OHI 

40H 

; convert  it  to  a  character 

INR 

A 

STA 

CURRENT 

;save  IT 

XCHG 

;get  buffer  count 

MOV 

C,M 

I  NX 

H 

r  nx 

H 

,‘THE  ONLY  WOULE  BE  HERE 

ECR 

C 

MOV 

A  *M 

CPI 

' .  ' 

• 

JN2 

SCANCOL1 

;none  here 

ECX 

a 

; FOUNT  IT,  CHECK  FOR 

INR 

c 

;  correct  erive 

MOV 

A  ,M 

ANI 

0EFH 

; FORCE  TO  UPPER  CASE 

MOV 

B  ,  A 

LEA 

CURRENT 

CMP 

B 

i S AME? 

JZ 

SCNCOL11 

;  YES,  OK 

LX  I 

D.DRIVERR 

;  NO,  PRINT  WARNING  & 

CALL 

PRINT 

J  IGNORE  IT 

CALL 

EELAY 

I  NX 

H 

ECR 

C 

JMP 

S  CANC0L2 

.‘CONTINUE  SCAN 

SCANCOL1  DCX 

H 

5 CHECK  IF  1st  CHAR  IS  ' 

INR 

C 

SCNCOL11  MOV 

A  ,M 

CPI 

• 

JZ 

SCANC0L3 

5  YES,  ERROR 

ECR 

C 

;  NO 

JZ 

SCNCOLEN 

JSCAN  TONE 

I  NX 

a 

.SCAN  NOT  EONE 

ECR 

c 

5CANC0L2  I NX 

H 

MOV 

A  ,M 

JSEE  IF  ANY  MORE 

CPI 

0  0 

• 

• 

JZ 

c  CANC0L3 

;  YES,  ERROR 

ECR 

C 

;  NO 

JNZ 

SCANC0L2 

»  CONT I NUE  SCAN 

SCNCOLDN  XRA 

A 

.‘LONE,  NO  ERRORS  DETECTEE 

JMP 

SCANC0L3+2 

SCANC0L3  MV I 

A.0FFH 

;TOO  many 

POP 

H 

POP 

E 

POP 

RET 

B 

SI 


*  * 


*  SCANHEX  -  SCAN  FILETYPE  FOR  'HEX' 
RETURN  A  =  00  IF  FOUNT 

=  0FFH  IF  NOT  FOUNT  * 


SCANHEX  PUSH 

3 

PUSH 

D 

PUSH 

H 

XCHG 

;get  buffer  count 

MOV 

C,M 

SCANHX1  I  NX 

H 

;go  to  periol 

MOV 

A  ,M 

CPI 

PERIOD 

JZ 

COMPARE 

;founl  it 

TCR 

C 

JNZ 

SCANHXl 

; keep  looking 

JMP 

SCNHXER 

5 ERROR ,  NO  PERIOL 

COMPARE  I  NX 

H 

MOV 

A  ,M 

ANI 

0EFH 

‘.FORCE  TO  UPFER  CASE 

CPI 

'H' 

JNZ 

SCNHXER 

; ERROR 

I. NX 

H 

MOV 

A  ,M 

ANI 

0EFH 

CPI 

'E' 

JNZ 

SCNHXER 

INX 

H 

MOV 

A  ,  M 

ANI 

01 FS 

CPI 

'X' 

JNZ 

SCNHXER 

XRA 

A 

; no  error 

JMP 

SCNHXER+2 

SCNHXER  MV I 

A  ,0FFH 

; ERROR 

POP 

H 

POP 

B 

POP 

B 

RET 

*  SCANUM  -  SCAN  FILENAME  FOR  TOO 

MANY  OR  TOO  FEW  CHARAC1 

*  FILENAME  IS  CHECSEE  ONLY  (S  CHARACTERS  MAX, 

*  1 

CHARACTER  MINIMUM) 

*  RETURN  A  » 

0e  IF  NO  ERROR 

#  a 

0FFH  IF  ERROR  * 

SCANUM  PUSH 

B 

PUSH 

D 

PUSH 

H 

XCHG 

;get  buffer  count 

MOV 

C,M 

MV  I 

B,0 

;B  *  *  OF  CHARACTERS  IN 

*■  * 


SCANUM1 

I  NX 

H 

MOV 

A ,M 

CPI 

/  (  / 

;  ST  ART  COUNT  AT  ' : '? 

JNZ 

SCANUM2 

;  YES 

DC  R 

B 

;  NC,  START  AT  BSGINNI 

DCR 

C 

J  E  ON  E  YET? 

JZ 

SCANUM4 

;  YES 

JMP 

SCANUM1 

;  no 

SCANUM2 

CPI 

PERIOE 

;go  to  perioe  or  euffe 

JZ 

SCANUM4 

;  PERIOD,  LONE 

INR 

B 

;keep  counting 

ECR 

u 

JZ 

SCANUM4 

;  LONE 

JMP 

5CANUM1 

;  loop 

SCANUM4 

XRA 

A 

;  <  1  CHARACTER? 

CMP 

B 

JZ 

3CANUM5 

;  YES,  ERROR 

MV  I 

A  ,8 

;  >  8  characters? 

CMP 

B 

JC 

3CANUM5 

5  YES,  ERROR 

XRA 

A 

;  NO  ERRORS 

JMP 

SCANUM5+2 

SCANUM5 

MV  I 

A,0FFH 

! ERROR 

POP 

H 

POP 

E 

POP 

B 

RET 

*  SGANINV  -  SCAN  FILENAME 

FOR  NON-PRINTABLE  CHARACTERS 

*  RETURN  A  = 

00  IF  NONE 

FOUND 

= 

0FFH  IF  ANY 

FOUNE 

* 

SCANINV 

PUSH 

B 

PUSH 

D 

PUSH 

H 

XCHG 

JGET  BUFFER  COUNT 

MOV 

C  ,M 

SCANIN1 

I  NX 

d 

MOV 

A  ,M 

CPI 

20H 

;  <  SPACE? 

JC 

SCAN  I N2 

?  YES,  ERROR 

ECR 

C 

;eone  WITH  SCAN? 

JNZ 

SCAN  INI 

;  no 

XRA 

A 

;  YES,  NO  ERRORS 

JMP 

SCAN  IN2+2 

SCAN IN2 

MV  I 

A,0F?H 

; ERROR 

;  ERROR 


*  MCVFN  -  MOVE  FILENAME  FROM  CONSOLE  BUFFER  TO  FCB  * 


MOVFN 

CALL 

PURGFCB 

;PURGE  ANE  SET  UP  FCE 

LX  I 

H.CONBUFF+l 

JGET  BUFFER  COUNT 

MOV 

C  ,  M 

XCHG 

;IE  =  CONEUFF  POINTER 

I  NX 

E 

I  NX 

E 

5SEE  IF  IT'S  A  COLON 

LCR 

C 

LEAX 

E 

CPI 

0  0 

% 

• 

JZ 

MOVIT01 

;  YES 

ECX 

E 

;  no 

INR 

C 

JMP 

MOVIT 

JSTART  AT  EUFFER  START 

MOVIT01 

I  NX 

E 

;  START  FROM  COLON 

DCR 

C 

MOV  IT 

LXI 

H.FCP+1 

MOV  I T 1 

LEAX 

E 

J MOVE  THE  FILENAME 

CPI 

PERIOD 

J  UNTIL  PERIOD  OR  END 

;  OF  BUFFER 

RZ 

;  DONE 

MOV 

M,  A 

.’STORE  CHAR.  IN  FCB 

I  NX 

H 

I  NX 

E 

ECR 

C 

JAT  END  OF  BUFFER? 

RZ 

YES,  MOVE  EOVE 

JMP 

MOVIT1 

;  no,  loop 

*  PURGFCB  -  PUP.G 

rS  FILE  CONTROL 

BLOCK  (FCB)  AND  SET  IT  UP 

FOR 

ACCEPTING  A  FILENAME  OF  TYPE  HEX  * 

PURGFCB 

LXI 

H,FCB 

LXI 

E  .FCBMSG 

MV  I 

C  ,16 

;SET  UP  FIRST  16  BYTES 

PURG01 

LDAX 

D 

MOV 

M ,  A 

ECR 

C 

; 16  BYTES  EONE  YET? 

JZ 

PURG1 

;  YES 

I  NX 

H 

I  NX 

E 

JMP 

PURG01 

;  no,  loop 

PURG1 

LXI 

E,FCB+32 

5  INITIALIZE  CURRENT  RECORD 

XRA 

A 

J  BYTE  IN  FCB 

STAX 

E 

RET 

*  UCASE 

-  CONVERT  ALL  FILENAME 

ALPHABETICS  TO  UPPER  CASE  * 

UCASE 

MV  I 

c,e 

J8  CHARACTERS  MAX 

LXI 

H,FCB+1 

S4 


UCA5E01  MOV 

A  ,  M 

CPI 

7EH 

;is  IT  >  LOWERCASE  Z? 

JNC 

U  CAS  El 

;  YES,  OK 

CPI 

/  * 
a 

;  NO,  IS  IT  <  LOWERCASE  a? 

JC 

UC AS  El 

;  YES,  OK 

ANI 

0DFH 

! MUST  BE  LOWER  CASE 

MOV 

M.A 

J  CONVERT  IT  TO  UPPER  CASE 

UCASE1  I  NX 

H 

DCR 

C 

; DONE? 

RZ 

;  YES 

JMP 

UCASF.01 

;  NO,  LOOP 

*  HEXBIN  -  CONVERT  TWO  HEX  ASCII  CHARACTERS  TO  ONE  EIGHT 

*  BIT  BINARY  NUMBER 

*  -  ALSO  ALL  IT  TO  CURRENT  CHECKSUM  IN  B 

*  CALL  WITH  HL  POINTING  TO  FIRST  CHARACTER 

*  RETURN  BINARY  NUMBER  IN  A  * 


HEXBIN 


*  ASCHEX 
ASCHEX 


I  NX 

H 

MOV 

A  ,M 

;S2T  FIRST  DIGIT 

CALL 

EOFCK 

;end  of  buffer/file? 

CALL 

ASCHEX 

;  CONVERT  TO  PURE  HEX 

RLC 

5MAXE  IT  4  MSB'S 

RLC 

RLC 

RLC 

MOV 

3, A 

JSAVE  IT 

I  NX 

H 

5GET  SECOND  DIGIT 

MOV 

A  ,  M 

CALL 

EOFCK 

CALL 

ASCHEX 

JCONVERT  IT 

ADD 

E 

»•  COMBINE  THEM 

MOV 

3, A 

;  SAVE  IT 

ADD 

B 

;AID  TO  CHECKSUM 

MOV 

B ,  A 

;  SAVE  IT 

MOV 

A  ,  E 

5GET  BINARY  NUMBER 

RET 

-  CONVERT  HEX  ASCII 

DIGIT  TO  PURE  HEX  DIGIT 

SUI 

' 0 ' 

j  SUBTRACT  OFF  ASCII 

CPI 

10 

RC 

; NUMBER  IS  0-9 

SUI 

7 

; NUMBER  IS  A-F 

RET 


*  EOFCK  -  CHECK  FOR  END  OF  BUFFER/FILE 

*  -  IF  END  OF  FILE  THEN  DOWNLOAD  IS  DONE 

*  -  IF  END  OF  BUFFER,  READ  MORE  DISK  S.  RETURN  WITH 

*  THE  FIRST  CHARACTER  IN  A 

*  -  OTHERWISE,  RETURN  WITH  NO  ACTION  5(1 
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EOFCK 

CPI 

EOF 

RNZ 

JNOT  END  OF  FILE/BUFFER 

LDA 

CONTFLG 

JSEE  IF  END  OF  FILE 

RRC 

JNC 

DWNLDNE 

;  YES 

LXI 

H , DSKBUFF 

J  NO ,  READ  MORE 

CALL 

READSK 

LXI 

H, DSKBUFF 

MOV 

A  »M 

RET 

*  BINHEX  -  CONVERT  AN  EIGHT 

BIT 

BINARY  NUMBER  TO  TWO  HEX 

* 

ASCII  CHARACTERS 

* 

-  STORE  THE  CHARACTERS 

IN  MEMORY  POINTED  TO  BY 

-  ADD 

BINARY  NUMBER 

TO 

RUNNING  CHECKSUM  IN  D 

*  CALL 

WITH  BINARY  NUMEER  IN 

A 

AND  HL  AS  ABOVE  * 

BINHEX 

PUSH 

PSW 

5  SAVE  DATA 

ADD 

B 

jade  to  checksum 

MOV 

B  ,  A 

J  SAVE  IT 

POP 

PSW 

;get  data 

MOV 

E ,  A 

J  SAVE  IT  IN  E 

ANI 

0F0H 

JPUT  4  MSB'S  INTO  LSB'S 

RRC 

RRC 

RRC 

RRC 

CALL 

HEXASC 

JCONVERT  TO  HEX  ASCII 

CALL 

BUFFCK 

J  STORE  IT 

MOV 

A  t  E 

jget  data 

ANI 

0FH 

jnow  convert  lsb's 

CALL 

HEXASC 

CALL 

RET 

BUFFCK 

J STORE  IT 

*  HEXASC  -  CONVERT  A  BINARY 

NUMBER  TO  A  HEX  ASCII  CHAR. 

HEXASC 

CPI 

0AH 

JC 

NUMBER 

JIT  IS  0-9 

ADI 

7 

JIT  IS  A-F 

NUMBER 

ADI 

30H 

JADD  ASCII  BIAS 

RET 

**  DISK  I/O  ROUTINES  ** 

**  ALL  ERROR  CODES  RETURNEE  ARE  IN  ACCORDANCE  WITH  CP/M 

*  AND  MP/M  CONVENTIONS  ** 

*  READSK  -  READ  THIRTY-TWO  (32)  12S  BYTE  RECORDS  FROM  DISK 

*  SET  FLAG  TO  INDICATE  IF  ONLY  A  PARTIAL  READ  * 


REAESK 

PUSH 

B 

MV  I 

B,32 

READSX1 

CALL 

DMASET 

CALL 

READREC 

CPI 

0 

JZ 

READMORE 

CPI 

1 

JZ 

READNE 

MV  I 

A, 15 

REACMORE  DCR 

B 

JNZ 

READSK1 

MV  I 

M ,  EOF 

MV  I 

A ,0FFH 

STA 

CONTFLG 

POP 

B 

RET 

READNE 

XRA 

A 

STA 

CONTFLG 

PUSH 

B 

LXI 

B ,-126 

DAD 

B 

POP 

B 

MVI 

M  ,EOF 

POP 

B 

RET 

;  SAVE  B 

JRSAD  32  RECORDS  MAX 
JSET  DMA  ADERESS 

;reai  a  single  record 
;good  read? 

J  YES,  DO  IT  AGAIN 

;eof? 

;  YES,  DONS 
;  NO,  READ  ERROR 
J4K  WORTH  YET? 

;  NO,  READ  MORE 
J  YES,  STORE  END  OF  BUFFER 
J  INDICATOR 

;3ET  CONTINUATION  FLAG 
.’RESTORE  B 

J RESET  CONTINUATION  FLAG 


jpgint  to  end  of  last  record 


; ENSURE  EOF  MARKER  IN  BUFFER 
J RESTORE  ORIGINAL  B 


*  WRITEDSK  -  WRITE  A  SINGLE  129  BYTE  RECORD  TO  USE  * 


WRITEDSK  LXI 

H,DSKBUFF 

.POINT  TO  DISK  BUFFER 

CALL 

DMASET 

JSET  DMA  ADDRESS 

CALL 

WRITEREC 

J  WRITE  RECORD  TO  DISK 

CPI 

0 

» GOOD  WRITS? 

RZ 

J  YES,  DONE 

MVI 

A, 18 

J  NO,  OUT  OF  DISK  SPACE 

CALL 

ERROR 

CALL 

CLOSFILE 

J CLOSE  THE  FILE  BUT 

CALL 

DELETE 

J  DON'T  SAVE  A  PARTIAL  FILE 

JMP 

MENU 

*  READREC  -  i 

READ  A  SINGLE 

RECORD  FROM  DISK  * 

READREC  PUSH 

3 

PUSH 

D 

PUSH 

H 

LXI 

D,FCB 

MVI 

C ,READF 

CALL 

BEOS 

POP 

H 

POP 

E 
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POP  B 
RET 

*  WRITEREC  -  WHITE  A  SINGLE  RECORD  TO  DISK  * 
VRITEREC  PUSH  3 


PUSH 

D 

PUSH 

H 

LX  I 

E  ,FCB 

MV  I 

C ,WRITEF 

CALL 

BDOS 

POP 

H 

POP 

D 

POP 

SET 

B 

*  LMASET  -  SET  DMA  ADDRESS 

*  CALL  WITS  ADDRESS  IN  HL 

*  RETURN  WITH  HL  *»  HL  +  128  * 


LMASET  PUSH 

PSV 

PUSH 

B 

PUSH 

E 

PUSH 

H 

XCHG 

JDE  =  DMA  ADDRESS 

MV  I 

C.SETEMA 

CALL 

BEOS 

POP 

H 

LXI 

B  ,128 

;RBAEY  DMA  ADDRESS  FOR  NEXT 

DAE 

B 

;  TIME 

POP 

D 

POP 

B 

POP 

RET 

PSV 

*  OPENFILE  - 

OPEN  A  FILE 

CURRENTLY  ON  EOSK  * 

OPENFILE  PUSH 

B 

PUSH 

D 

PUSH 

H 

III 

E.FCB 

MV  I 

C.OPENF 

CALL 

BEOS 

POP 

H 

POP 

D 

POP 

RET 

B 

*  CLOSFILE  - 

CLOSE  A  FILE 

CURRENTLY  ON  DISK  * 

CLOSFILE  PUSH  B 
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PUSH 

E 

PUSH 

H 

LXI 

E.FCB 

MV  I 

C . CLOdEf 

CALL 

BDOS 

POP 

H 

POP 

E 

POP 

RET 

B 

*  CREATE  -  CREATE  A  NEW  FILE  ON  DISK  * 


CREATE 


PUSH 

B 

PUSH 

E 

PUSH 

H 

LXI 

D.FCB 

MVI 

C .MAKEF 

CALL 

BEOS 

POP 

H 

POP 

E 

POP 

RET 

B 

*  EEL ETE  -  EELETE  A  FILE  CURRENTLY  ON  EISK 


EELETE  PUSH  B 

PUSH  D 

PUSH  H 

LXI  E.FCB 

MV  I  C.DELF 

CALL  BEOS 

POP  H 

POP  D 

POP  B 

RET 

*  CURDSK  -  GET  CURRENTLY  LOGGED  DISK  * 


CURESK  PUSH  B 

PUSH  E 

PUSH  H 


LXI  E.FCB 

MV  I  C , CURRNTE 

CALL  BDOS 

POP  H 

POP  E 

POP  B 

RET 


*  ERROR  -  ERROR  HANELING  ROUTINE 

*  CALL  WITH  ACC  *  ERROR  NUMBER  * 


m 


■"8WB 


ERROR 

MOV 

C  » A 

MV  I 

B,0 

LXI 

H f ERRJMP-3 

DAD 

B 

DAD 

B 

LAD 

PCHL 

NOP 

NOP 

B 

ERRJMP 

JMP 

ERROR1 

JMP 

ERR0R2 

JMP 

ERR0R3 

JMP 

ERR0R4 

JMP 

ERRORS 

JMP 

SRR0R6 

JMP 

ERROR? 

JMP 

ERR0R8 

JMP 

ERR0R9 

JMP 

ERROR10 

JMP 

ERROR11 

JMP 

ERR0R12 

JMP 

ERR0R13 

JMP 

ERR0R14 

JMP 

EP.R0R15 

JMP 

ERR0R16 

JMP 

ERRORl? 

JMP 

ERROR18 

ERROR1 

LXI 

DrMENERRMG 

JMP 

ERROUT 

ERRQR2 

LXI 

E.MFDELERR 

JMP 

ERROUT1 

ERRORS 

LXI 

D.PERONLYM 

JMP 

ERROUT1 

ERROR* 

LXI 

D,  INVHEXER 

JMP 

ERROUT1 

ERRORS 

LXI 

D.SEIELERR 

JMP 

ERROUT 1 

ERR0R6 

LXI 

D.SEQDELER 

JMP 

ERROUT 1 

ERROR7 

LXI 

D.AMBIGERR 

JGET  ERROR  NUMBER 
J COMPUTE  ERROR  VECTOR 


; ERROR  VECTOR  IS  IN  PC 


MENU  SELECTION  ERROR 
TOO  MANY/FEW  DELIMITERS 
PERior+rm  error 
INVALID  HEX  DIGIT  ERROR 
DELIMITER  AT  START/END 
2  OR  MORE  DEL .  SEQUENTIALLY 
NO  AMBIGUOUS  FILES 
COLONS  NOT  PROPERLY  PLACED 
IN  FILENAME 

TOO  MANY/FEW  CHAR.  IN  FN 
HEX  FILETYPE  ONLY 
NO  SPACES  IN  FILENAME 
NO  NON-PRINTABLE  CHAR  IN  FN 
FILE  NOT  FOUND 
HEX  CHECKSUM  ERROR 
DISK  READ  ERROR 
OUT  OF  DIRECTORY  SPACE 
START  >  FINISH  ADDRESS 
OUT  OF  DIR/ LISK  SPACE 
PARTIAL  FILE  NOT  SAVED 

J PRINT  MENU  ERROR  MESSAGE 


J  PRINT  ERROR  MESSAGE 
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JMP 

ERR0UT2 

ERRORS  LXI 

E  ,COLONERR 

JMP 

ERR0UT2 

ERR0R9  LXI 

D.FNCHARER 

JMP 

ERR0UT2 

ERROR10  LXI 

E  ,HEXFTERR 

JMP 

ERR0UT2 

ERROR11  LXI 

E , SPFNERR 

JMP 

ERR0UT2 

ERR0R12  LXI 

D,NPRTERR 

JMP 

ERR0UT2 

ERROR 13  LXI 

DtFNFNEERR 

JMP 

ERROUT 1 

ERR0R14  LXI 

E.CKSUMERR 

JMP 

ERR0UT3 

SRR0R15  LXI 

DfDSKRDERR 

JMP 

ERR0UT3 

ERR0R16  LXI 

E.EIRSPERR 

JMP 

ERROUT 

ERR0R17  LXI 

r  .SGFAERR 

JMP 

ERROUT 1 

ERR0R18  LXI 

D,DDSPCERR 

JMP 

ERR0UT3 

ERROUT  CALL 

PRINT 

SPRINT  ERROR 

CALL 

DELAY 

;let  user  read  error 

JMP 

MENU 

S  START  OVER 

ERRODT1  LXI 

SP, STACK 

SRE-INIT.  STACK 

CALL  PRINT 

SPRINT  ERROR 

CALL 

DELAY 

LDA 

MENUFLG 

SRECALL  MENU  CHOICE 

JMP 

MENU1 

SRESTART  CURRENT  OPTION 

ERR0UT2  CALL 

PRINT 

SPRINT  ERROR 

CALL 

DELAY 

RET 

S  BACK  TO  CALLER 

ERR0UT3  CALL 

PRINT 

SPRINT  ERROR 

CALL 

DELAY 
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CALL 

JMP 


HOSTEONE 

MENU 


;tell  mes  done 


*  DELAY  -  APPROX.  1-2  SECOND  DELAY  FOR  USER  TO  SEE  ERROR 

*  MESSAGE  BEFORE  MENU  IS  REPRINTED  * 


ISLAY  PUSH 

PSW 

PUSH 

B 

PUSH 

E 

PUSH 

H 

MV  I 

B  ,15 

{OUTER  LOOP  INITIALIZATION 

LXI 

E,-l 

{DECREMENT  BY  SUBTRACTION 

IELATIN  LXI 

H.39E0H 

{INNER  LOOP  INITIALIZATION 

DELAYOUT  DAD 

D 

J  HL  =  HL  -  1 

JC 

EELAYOUT 

ECR 

B 

JNZ 

DELAYIN 

POP 

H 

POP 

E 

POP 

B 

POP 

PSW 

RET 

JEELAT  EONE,  BACK  TO  CALLER 

*  CRLF  -  CARRIAGE  RETURN  & 

LINE  FEED  UTILITY  * 

CRLF  MV  I 

E,CR 

{PRINT  CARRIAGE  RETURN 

CALL 

CONSOUT 

MV  I 

E,LF 

5  THEN  A  LINE  FEED 

CALL 

RET 

CONSOUT 

♦  ENTER  -  GET  A  HEX  INTEGER  FROM  THE  CONSOLE  BUFFER 

*  &  RETURN  WITH  HL  «  16  BIT  BINARY-  DATA 


*  CALL 

WITH  C 

=  MAX  NUMBER 

OF  CHARACTERS  TO  INPUT 

* 

EE 

»  CONSOLE  BUFFER  POINTER  FOR  START  OF 

* 

CONVERSION 

PROCESS  * 

ENTER 

PUSH 

PSW 

{SAVE  A,  BC,  DE 

PUSH 

B 

PUSH 

D 

LXI 

H,0000H 

{ IN  IT .  DATA  AREA 

ENTER1 

LEAX 

I 

{GET  DATA  FOR  CONVERSION 

CPI 

'A' 

{IS  IT  0-9? 

JC 

ENTER15 

{  TES 

ANI 

0EFH 

{  NO  -  FORCE  TO  UPPER  CASE 

ENTER15 

DAD 

H 

{SHIFT  PREVIOUS  DATA  LEFT 

DAE 

H 

I  4  BITS 

DAE 

3 

DAD 

3 

JC 

ENTER3 

{IF  OVERFLOW,  PRINT  ERROR 
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CPI 

'0' 

;  is  it  0-i? 

JC 

ENTER3 

5  NO  -  ILLEGAL  CHARACTER 

CPI 

'F'  +  l 

;  IS  IT  >  F? 

JNC 

ENTER3 

J  TES  -  ILLEGAL  CHARACTER 

CPI 

'A' 

; LEGAL  -  IS  IT  A-F? 

JC 

ENTER2 

;  NO  -  IT'S  0-9 

ADI 

9 

JAED  CONVERSION  FACTOR 

ENTER2 

ANI 

0FH 

J ISOLATE  4  BITS 

ORA 

L 

;merge  with  previous  eata 

MOV 

L,A 

DCR 

C 

: COUNT  CHARACTERS  ENTERED 

JZ 

ENTER4 

; EXIT  IF  C  =  0 

INK 

E 

,'BUMP  BUFFER  AEESESS 

JMP 

ENTER1 

;GET  ANOTHER  HEX  INTEGER 

ENTER3 

MV  I 

A, 4 

SPRINT  ILLEGAL  CHARACTER 

J  ERROR 

JMP 

ERROR 

.START  OVER 

ENTER4 

POP 

E 

J  RESTORE  REGISTERS 

POP 

B 

POP 

PSW 

RET 

*  CONSIN  -  CONSOLE  INPUT 

ROUTINE 

*  DOESN'T  RETURN  UNTIL 

INPUT  IS  RECEIVED  * 

CONSIN 

PUSH 

B 

JSAVE  REGISTERS 

PUSH 

I 

PUSH 

H 

MV  I 

C.CONIN 

JGET  CHARACTER 

CALL 

BEOS 

POP 

H 

.'RESTORE  REGISTERS 

POP 

E 

POP 

B 

RET 

; RETURN  TO  CALLER  WITH 

;  CHARACTER  IN  A 


*  CONSOUT  -  CONSOLE  OUTPUT  ROUTINE 

*  ENTER  WITH  CHARACTER  IN  3  * 

CONSOUT  PUSH  PSW  ,'SAVE  REGISTERS 

PUSH  B 

PUSH  D 

PUSH  H 

MV  I  C , CONOUT  j OUTPUT  CHARACTER 

CALL  BDOS 

POP  H  JRESTORE  ALL  REGISTERS 

POP  E 

POP  B 

POP  PSW 

RET  .BACK  TO  CALLER 


*  CONSTAT  -  GET  CONSOLE  INPUT  STATUS 

*  RETURNS  WITH  A  =  00H  I?  NO  CHARACTER  WAITING 

*  *  0FFH  IE  CHARACTER  IS  WAITING  * 


CCN5TAT  PUSH 

B 

JSAVE  REGISTERS 

PUSH 

E 

PUSH 

a 

MV  I 

C .CONST 

jget  STATUS 

CALL 

BEOS 

POP 

H 

J RESTORE  REGISTERS 

POP 

E 

POP 

B 

RET 

*  BUFFRE  -  REAL 

CONSOLE  INPUT 

INTO  BUFFER  POINTEE  TO  BY 

*  RETURN  WITH 

EE  =  BUFFER  START  AEERESS  ♦  1 

B  =  COUNT  OF 

CHARACTERS  INPUT 

* 

ALL  OTHER  REGISTERS  (A,  HL)  UNCHANGEE  * 

BUFFRE  PUSH 

PSW 

JSAVE  A,  HL 

PUSH 

H 

BUFFI  LXl 

E .PROMPT 

JSENE  PROMPT  TO  CONSOLE 

CALL 

PRINT 

LXl 

E.CONBUFF 

JPOINT  TO  CONSOLS  BUFFER 

PUSH 

E 

J  SAVE  IT 

MV  I 

C.READCON 

J READ  CONSOLE  INPUT 

CALL 

BEOS 

CALL 

CRLF 

POP 

D 

JPOINT  TO  CHAR.  COUNT 

I  NX 

E 

LEAX 

E 

JGET  COUNT 

ORA 

A 

; IS  COUNT  =  0? 

JNZ 

REAEONE 

J  NO,  RETURN  TO  CALLER 

JMP 

BUFFI 

J  YES,  TRY  AGAIN 

READONE  MOV 

B.A 

J  RETURN  WITH  B  =  COUNT 

POP 

H 

JRESTORE  A,  HL 

POP 

PSW 

RET 

*  BUFFRE1  -  REAL  CONSOLE  INPUT  INTO  BUFFER  POINTEE  TO  BY 

*  RETURN  WITH 

EE  =  BUFFER  START  AEERESS  +  1 

* 

B  *  COUNT  OF 

CHARACTERS  INPUT 

* 

A  *  00  IF  COUNT  =  0 

* 

=  0FFH  IF  COUNT  >  0 

HL  UNCHANGED 

BUFFREl  PUSH 

H 

JSAVE  HL 

LXl 

E.CONBUFF 

JPOINT  TO  CONSOLE  BUFFER 

PUSH 

D 

J  SAVE  IT 

MV  I 

C.REAECON 

J  READ  CONSOLE  INPUT 

CALL 

BEOS 
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CALL 

CRLF 

POP 

D 

JPOI NT  TO  CHAR. 

COUNT 

I  NX 

D 

LDAX 

D 

GET  COUNT 

ORA 

A 

;IS  COUNT  *  0? 

JZ 

READONE1 

;  YES,  RETURN  TO 

CALLER 

MOV 

B,A 

ISAVE  CHAR  COUNT 

MV  I 

A ,0FFH 

; COUNT  >  0 

JMP 

READONE1+ 1 

RSADONE1  MOV 

B,A 

JRETURN  WITH  B  = 

COUNT 

POP 

H 

RESTORE  A,  HL 

RET 

*  SCAN  -  DELIMITER  SCAN  OF  CONSOLE  INPUT  BUFFER 

*  (SPACES  AND  COMMAS  ARE  LEGAL  DELIMITERS ) 

*  ALSO  CHECKS  FOR  ESCAPE  AND  '?  '  KEYS 

*  CALL  WITH  DE  =  CONBUFF  +  1 

*  A  =  NUMBER  OF  DELIMITERS  TO  LOOK  FOR 

*  RETURN  WITH  CARRY  SET  IF  MORE  OR  LESS  DELIMITERS 

*  THAN  SPECIFIED 

*  A  -  GARBAGE 

*  OTHER  REGISTERS  UNCHANGED  * 


SCAN  PUSH  B 

PUSH  D 

PUSH  H 

MOV  B,A 

XCHG 

MOV  C  ,  M 

CALL  SCNENDEL 

CALL  SCANEDEL 

5CAN1  I  NX  H 

MOV  A  ,M 

CPI  SPACE 

JZ  CNTDEL 

CPI  COMMA 

JZ  CNTDEL 

CPI  ESC 

JZ  SCANESC 

CPI  '?' 

JZ  QUESTION 

SCAN2  DCR  C 

JZ  SCANLONE 

JMP  5CAN1 

CNTDEL  DCR  B 

JMP  SCAN2 

SCANEONE  XRA  A 

CMP  B 

SCAND1  POP  H 


;SAVE  REGISTERS 


I  GET  DELIMITER  COUNT 
;EL  =  CONBUFF  +  1 
;GET  CHARACTER  COUNT 
{SCAN  FOR  DELIMITERS  AT 
;  START  AND  END  OF  INPUT 
JSCAN  FOR  SEQUENTIAL  EELS. 
JGET  CHARACTER 

;  IS  IT  A  SPACE? 

;  YES,  DEC  DELIMITER  COUNT 
;  IS  IT  A  COMMA? 

;  YES 

; I S  IT  AN  ESCAPE  CHARACTER? 

YES,  ESCAPE  FROM  OPTION 
; IS  IT  A  QUEST  FOR  HELP? 

;  YES,  PRINT  DATA  FORMATS 
; NONE  OF  THESE,  CHECK  NEXT 
J  CHARACTER 

?NO  MORE  CHARACTERS  TO  CHECK 

JIECREMENT  DELIMITER  COUNT 
5LOOK  FOR  ANOTHER  DELIMITER 
JSEE  IF  B  =  0 

RESTORE  REGISTERS 


POP 

E 

POP 

B 

RET 

SCANESC  LEA 

MENUFLG 

JIF  HOST  COMMANE  THEN 

CPI 

NHSTCME 

J  NO  ESCAPE  TO  MES 

JC 

MENU 

LEA 

SYSSTAT 

: SEE  IF  HOST  IN  CONTROL 

ORA 

A 

JZ 

3CNESC1 

j HOST  IN  CONTROL 

CALL 

CNTRLCK 

JMES  IE  IN  CONTROL 

RRC 

JNC 

MENU 

J  NO  ABORT 

SCNESC1  MVI 

A,  V 

!  ABORT 

CALL 

MESCME 

XRA 

A 

f  CLEAR  SYSSTAT  FLAG,  HOST 

STA 

SYSSTAT 

;  NOW  IN  CONTROL 

JMP 

MENU 

» RETURN  TO  MENU 

QUESTION  LXI 

D.FORMTMSG 

JPRINT  DATA  FORMATS  ANE 

CALL 

PRINT 

;  RETURN  TO  CURRENT  OPTION 

QUEST1  CALL 

CONSTAT 

» WAIT  FOR  RESPONSE  TO 

RRC 

J  CONTINUE 

JNC 

QUEST1 

CALL 

CONSIN 

LXI 

E.FMTMSGl 

; CONTINUE  FORMAT  MESSAGE 

CALL 

PRINT 

QUE5T2  CALL 

CONSTAT 

RRC 

JNC 

QUEST2 

CALL 

CONSIN 

LEA 

MENUFLG 

JMP 

MENU1 

IBACX  TO  OPTION 

CNTRLCK  LXI 

D,ABORTMSG 

;  MES  IS  -  PRINT  ABORT  QUERY 

CALL 

PRINT 

CNTRL1  CALL 

CONSTAT 

JWAIT  FOR  RESPONSE 

RRC 

JNC 

CNTRL1 

CALL 

CONSIN 

JGET  RESPONSE 

ORI 

20H 

*  FORCE  IT  TO  LOWER  CASE 

CPI 

0  0 
y 

5 ABORT  MES  CONTROL? 

JZ 

CNTRL2 

;  YES 

XRA 

A 

;  NO,  CLEAR  A 

RET 

CNTRL2  MV  I 

A ,0FFH 

;  SET  A 

RET 

*  SCNENEEL  -  CHECK  FOR  DELIMITERS  AT  FIRST  &  LAST  CHARACTER 

*  POSITIONS  IN  CONSOLE  INPUT  BUFFER 

*  CALL  WITH  BUFFER  COUNT  IN  C  * 
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S  CNENIEL  PUSH 

B 

SAVE  BUFFER  COUNT 

I  NX 

3 

GET  FIRST  CHARACTER 

MOV 

A  ,M 

CPI 

SPACE 

IS  IT  A  SPACE? 

JZ 

5CNSPC1 

YES,  ERROR 

CPI 

COMMA 

IS  IT  A  COMMA? 

JNZ 

SCNSPC2 

NC,  CONTINUE  TO  ENL 

5CN3PC1  MV  I 

A ,  5 

ERROR  J 

JMP 

ERROR 

i 

SCNSPC2  CCR 

C 

AT  BUFFER  ENL  YET?  ' 

JZ 

SCNSPC3 

YES  j 

I  NX 

3 

NO 

JMP 

SCNSPC2 

LOOP 

SCNSPC3  MOV 

A  ,M 

GET  LAST  CHARACTER 

CPI 

SPACE 

A  SPACE? 

JZ 

SCNSPC1 

YES,  ERROR 

CPI 

COMMA 

A  COMMA? 

JZ 

SC NS  PC  1 

YES,  ERROR 

POP 

B 

RESTORE  BUFFER  COUNT 

LXI 

RET 

H.CONBUFF+l 

AND  POINTER  TO  IT 

*  SCANEESL  ~ 

SCAN  CONSOLE  BUFFER 

FOR  2  OR  MORE  SEQUENTIAL 

DELIMITERS  * 

SCANDIEL  PUSH 

B 

SAVE  BUFFER  COUNT 

XRA 

A 

'  INIT .  FIRST  DELIMITER  FLAG 

STA 

FR3TDEL 

SPELl  I  NX 

3 

GET  CHARACTER 

MOV 

A  ,M 

CPI 

SPACE 

SPACE? 

JZ 

DELCK 

YES,  FIRST  DELIMITER? 

CPI 

COMMA 

‘COMMA? 

JZ 

DEICE 

YES,  FIRST  DELIMITER? 

ECS 

C 

‘  IF  C  =  0  THE N  LONE 

JZ 

SESLENE 

XRA 

A 

RESET  FLAG 

STA 

FRSTEEL 

JMP 

SEEL1 

LOOP 

DELCK  LDA 

FRSTDEL 

FIRST  DELIMITER? 

ORA 

A 

JNZ 

DELCK1 

NO,  A- 1  -  ERROR 

I  NR 

A 

YES,  SET  FRSTDEL  FLAG 

STA 

FRSTEEL 

DCR 

C 

SEE  IF  DONE 

JZ 

sdeldne 

JMP 

SEEL1 

NO,  LOOP 

DELCK1  XRA 

A 

STA 

FRSTDEL 

MV  I 

A, 6 

JMP 

ERROR 

PRINT  ERROR 
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SDELDNE  POP  B  J  RESTORE  BUFFER  COUNT 

LXI  H.CONBUFF+l  J  AND  POINTER  TO  IT 

RET 


*  CKPERIOD  -  CHECK  FOR  A  PERIOE  ANYWHERE  IN  INPUT 

*  CALL  WITH  EE  =  CONB'JFF  +  1 

*  RETURN  WITH  A  =  00  IF  NO  PERIOE  FOUNE 

*  =  0FFH  IF  A  PERIOD  ONLY 

*  =  0F0H  IF  A  PERIOE  +  EATA 

*  OTHER  REGISTERS  UNCHANGED  * 


CKPERIOD  PUSH 

B 

JSAVE  REGISTERS 

PUSH 

E 

PUSH 

H 

XCHG 

JHL  =  CONBUFF  +  1 

MOV 

C  ,M 

;C  =  CHARACTER  COUNT 

MOV 

E,M 

;E  =  CHAR.  COUNT  ALSO 

CKPER1 

I  NX 

H 

JGET  CHARACTER 

MOV 

A  ,M 

CPI 

PERIOE 

; IS  IT  A  PERIOE? 

JZ 

PERFND 

;  YES 

ECR 

C 

;  NO,  ANY  MORE  CHARACTERS? 

JZ 

CKEONE 

J  NO,  CHECK  DONE 

JMP 

CKPER1 

J  YES,  TRY  AGAIN 

PSRFNI 

MOV 

A  ,1 

; RECALL  ORIG.  CHAR.  COUNT 

CPI 

1 

JONLY  A  PERIOD? 

JZ 

NOERR 

!  YES,  NO  ERROR 

MV  I 

A.3F0H 

J  PERIOE  +  EATA  IS  ILLEGAL 

JMP 

CKEONE+1 

NO  ERR 

MV  I 

A ,0FFH 

*,  PERIOD  ONLY  INDICATION 

JMP 

CKEONE+1 

CRIONE 

XRA 

A 

I  CLEAR  ACC.,  NOT  FOUNE 

POP 

H 

;restore  registers 

POP 

E 

POP 

B 

RET 

*  GET4BIN  -  GET 

4  OR  LESS 

HEX 

INTEGERS  FROM  THE  CONSOLE 

* 

BUFFER  ANE  CONVERT 

THEM  INTO  16  BIT  .INARY  EAT 

(GO 

INTO  BUFFER. 

G 

C  TO  DELIMITER  IF  ONE  EXISTS 

* 

OR 

TO  BUFFER 

END. 

WHICHEVER  OCCURS  FIRST; 

* 

BACK  UP  NUMEER 

OF 

CHARACTERS  SPECIFIED  EY 

* 

CALLER  OR  TO 

DELIMITER  OR  BUFFER+1,  CONVERT 

* 

TO 

BINARY  ANI 

RETURN) 

*  CALL 

WITH  EE  *  START  OF 

CONVERSION  POINTER  (AT  A 

DELIMITER 

OR 

THE  BUFFER  COUNT) 

*  RETURN  WITH 

B  =  NUMBER 

OF 

CHARACTERS  LEFT  IN  BUFFER 

* 

C  =  NUMBER 

OF 

CHARACTERS  CONVERTED 

* 

DE  =  END  OF 

BUFFER  OR  DELIMITER 

HL  =  16  BIT  BINARY  EATA  * 
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GET4BIN  MV  I 

C,4 

MOV 

A  ,C 

STA 

GET 41  XCEG 

BACKUPl+L 

GET4L00P  INX 

H 

MOV 

A  ,M 

CPI 

SPACE 

JZ 

BACKUP 

CPI 

COMMA 

JZ 

BACKUP 

ECS 

B 

JZ 

BACKUP0 

JMP 

GET4L00P 

BACKUP0  INX 

H 

BACKUP  PUSH 

H 

BCX 

H 

CALL 

BUFFTST 

JZ 

BACKUP01 

MOV 

A.M 

CPI 

SPACE 

JZ 

BACKUF01 

CPI 

COMMA 

JZ 

BACKUP01 

ECR 

C 

JNZ 

BACKUP+1 

JMP 

BACKUP1 

BACKUP01  INX 

H 

BACKUP1  MV  I 

A, 4 

SUB 

C 

MOV 

XCHG 

C,A 

CALL 

ENTER 

POP 

E 

DCS 

RET 

B 

BUFFTST  PUSH 

H 

PUSH 

D 

LXI 

E.CONBUFF+l 

MOV 

A  ,L 

CMP 

E 

POP 

E 

POP 

RET 

3 

{GET  4  CHARACTERS  MAX 
;BE  SURE  BACKUP1  INST  IS 
;  MV  I  A, 4 

{HL  =  START  OF  SEARCH 

;get  character 

;  I S  IT  A  SPACE? 

•  ■y  £S 

; IS  IT  A  COMMA? 

;  TES 

;more  characters  in  puffer? 
;  nc 

;none  of  these,  trt  again 
;  POINT  TO  BUFFER  END  +  1 
{SAVE  EELIMITER  AEERESS 
{BACK  UP  1 

{AT  BEGINNING  OF  BUFFER? 

{  NO 

{ARE  WE  AT  A  SPACE? 

{  TES 

{ARE  WE  AT  A  COMMA? 

{  TES 

JEECREMENT  CHARACTER  COUNT 

{BACK  UP  1  AGAIN 

{C  =  0  FINALLT 

{POINT  TO  FIRST  CHARACTER 

{FINALLT  GOT  THERE 

{COMPUTE  NUMBER  OF  BACKUPS 

>E3  =  CONVERSION  START  ABER 
{10  CONVERSION 
{IE  =  EELIMITER  AEERESS 
{DECREMENT  CHAR.  COUNT 


{AT  BUFFER+1  TET? 

;  IP  2  =  1  THEN  AT  BUFFER  +  1 


{  ELSE  Z  ■  0 


*  GET2BIN  -  SAME  AS  GET4BIN  BUT  LIMITED  TO  TWO  CHARACTERS 

*  MAX 

*  SAME  ENTRT  PARAMETERS 

*  RETURNS  WITH  L  *  8  BIT  BINART  DATA 

*  OTHER  REGISTERS  AS  IN  GET4BIN  * 
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GET2BIN  MV I 

C  ,2 

MOV 

A.C 

{TWO  BACK-UP'S  ONLY 

STA 

BACKUP1+1 

;  MODIFY  GET4BIN  COLE 

CALL 

GET41 

mvi 

A, 4 

{RESTORE  GET4BIN  CCEE 

STA 

RET 

BACKUP1+1 

*  MESOUT  -  HOST 

OUTPUT  TO  MES 

*  CALL  WITH  CHARACTER  IN  A  * 

MESOUT  PUSH 

B 

JSAVE  REGISTERS 

PUSH 

E 

PUSH 

H 

MOV 

C ,  A 

{  SAVE  CHARACTER 

MESOUT1  MV I 

A  ,10H 

{RESET  S 10  INT  BIT 

OUT 

MSTATPT 

IN 

MSTATPT 

{GET  SIO  STATUS 

ANI 

0CH 

{CHECK  FOR  BOTH  ETR  &  TXE 

CPI 

0CH 

{  MUST  HAVE  BOTH 

JN2 

MESOUT1 

{LOOP  TILL  REACT 

MOV 

A ,  C 

OUT 

MEATAPT 

{SENE  CHARACTER 

CPI 

XON 

{IF  XON,  DON'T  WAIT  FOR 

JZ 

XONEN 

{  CONFIRMATION 

XONCK  CALL 

RRC 

MESTAT 

{NOW  WAIT  FOR  CONFIRMATION 

JNC 

XONCK 

{  FROM  MES 

IN 

MEATAPT 

{GET  IT  TO  RESET  SIO  FLAGS 

XCNDN  POP 

H 

{RESTORE  REGISTERS 

POP 

E 

POP 

RET 

B 

*  MISCME  -  SENE 

COMMANE  TO  MES 

*  CALL  WITH  A 

=  COMMANE  * 

MDSCMB  PUSH 

PSW 

{SAVE  COMMAND 

MVI 

A  ,055H 

{NEXT  CHAR.  WILL  BE  CME 

CALL 

MESOUT 

POP 

PSW 

{SEND  COMMANE 

CALL 

RET 

MESOUT 

*  MBATAOUT  -  SEND  USABLE  EATA 

TO  MES 

*  CALL  WITH  A 

=  EATA  * 

MIATAOUT  PUSH 

PSW 

{SAVE  EATA 

MVI 

A  ,  0FFH 

{NEXT  CHAR.  WILL  BE  EATA 

CALL 

MESOUT 

POP 

PSW 

{SENE  EATA 
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*  * 


PUSH 

PSW 

{  SAVE  IT 

CALL 

MDSOUT 

POP 

PSW 

{RESTORE  DATA 

RET 

HOSTED!  -  HOST  HEAD!  TO  RECEIVE  RETURN  DATA  FOR  CURRENT 
OPTION  * 

H05TRDY  MV  I  A,00H 

CALL  MIS OUT 

MV  I  A  ,00H 

CALL  MDSOUT 

RET 


*  HOSTEONE  -  HOST  DONE  WITH  ITS  PART  IN  CURRENT  OPTION, 

*  IS  RETURNING  TO  MONITOR  * 


HOSTDONE  MV I 

A.  V 

{NEXT  CHAR.  IS  DONE  CM HD 

CALL 

MDSCMD 

RET 

*  MES IN  -  HOST 

INPUT  FROM 

MTS 

*  RETURNS  WITH 

CHARACTER 

IN  A, 

OTHER  REGISTERS  RESTORED  * 

MIS  IN  PUSH 

E 

{SAVE  REGISTERS 

PUSH 

D 

PUSH 

H 

CALL 

MESINRET 

;ant  input  waiting  from  mds? 

IN 

MDATAPT 

{  TES,  GET  DATA  TYPE 

CPI 

0FFH 

{IS  IT  DATA? 

JZ 

MDSIN2 

{  YES,  GET  IT 

CPt 

055H 

{QUIT  CMD? 

JZ 

MESQUIT 

{  YES 

JMP 

MESINDNE 

{  NO,  MDS  MUST  HAVE 

;  signalled  it's  ready 

{  FOR  INPUT 

MESQUIT  MV I 

A  ,XON 

{CONFIRM  RECEIPT 

CALL 

MDSOUT 

CALL 

MESINRDT 

IN 

MEATAPT 

XRA 

A 

{RESET  FLAGS 

STA 

STSSTAT 

STA 

MESRDTF 

MV  I 

A.XON 

{CONFIRM  RECEIPT  OF  'C ' 

CALL 

MDSOUT 

JMP 

MENU 

{NOW  back  to  menu 

MDSIN2  MV  I 

A  ,XQN 

{SEND  CONFIRMATION 

CALL 

MDSOUT 

CALL 

MISINRDT 

{WAIT  TOR  DATA 

IN 

MDATAPT 

{  THEN  GET  IT 

PUSH 

PSW 

{  SAVE  IT 

*  NEXT  CHAR.  IS  RDY  FLAG 
•SENE  READ!  FLAG 
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MV  I 

A.XON 

J  CONFIRM  AGAIN 

CALL 

MDSOUT 

POP 

PSW 

J RESTORE  EATA  &  REGISTERS 

POP 

9 

POP 

D 

POP 

RET 

B 

*  MDSINRDY  - 

CHECK  FOR  INPUT  FROM  MDS ,  LOOP  TILL  THERE  IS  * 

MESINREY  CALL 

i  ESCK 

J CHECK  FOR  ESCAPE 

CALL 

RRC 

MD3TAT 

5GET  STATUS 

JNC 

MESINREY 

;NO  CHARACTER  WAITING ,  LOOP 

RET 

'.CHARACTER  WAITING 

*  MESINENE  - 

SET  MES  REAEY 

FOR  INPUT  FLAG  * 

ME3INDNE  MVI 

A  ,  XON 

'.CONFIRM  IT 

CALL 

MESOUT 

CALL 

MESINREY 

IN 

MDATAPT 

MVI 

A ,0FFH 

JSET  MES  REAEY  FLAG 

STA 

MESREYF 

MVI 

A.XON 

J CONFIRM  RECEIPT  OF  DATA 

CALL 

MESOUT 

POP 

H 

.RESTORE  REGISTERS 

POP 

D 

POP 

B 

RET 

.BACK  TO  MESIN  CALLER 

*  ESCK 

-  CHECK 

FOR  ESCAPE 

COMMAND  FROM  KEYBOARD 

* 

IGNORE 

ALL  OTHER 

INPUT  * 

ESCK 

CALL 

RRC 

CONSTAT 

J CHECK  FOR  INPUT 

RNC 

;  NONE 

CAuL 

CONSIN 

;  IS  IT  ESCAPE? 

CPI 

ESC 

;  IS  IT  ESCAPE? 

JZ 

ESCK01 

;  no 

MVI 

E.BKSPCE 

JEON'T  PRINT  CHARACTER 

CALL 

RET 

CONSOUT 

ESCK01 

LEA 

SYSSTAT 

JGET  SYSTEM  STATUS 

ORA 

A 

JZ 

ESCK1 

;HOST  IN  CONTROL 

CALL 

RRC 

CNTRLCK 

,'SEE  WHO  IS  IN  CONTROL 

JNC 

MENU 

;  NO  ABORT 

ESCK1 

MVI 

A, 'O' 

;  YES,  SEND  ESCAPE  CME 

CALL 

MESCMD 

;  TO  MDS 
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XRA 

A 

;host  now  in  control 

STA 

STSSTAT 

JMP 

MENU 

; NOW  BACK  TO  MENU 

*  MESTAT  -  GET 

STATUS  OF 

MDS 

SIO 

*  RETURNS  WITH 

A  =  00  AND  Z 

»  1  IF  NO  CHARACTER  WAITING 

* 

*  0FFH 

AND 

Z  *  0  IF  CHARACTER  WAITING  * 

MESTAT  XRA 

A 

; CHECK  SIO  STATUS 

OUT 

MSTATPT 

IN 

MSTATPT 

AN  I 

1 

» CHARACTER  WAITING? 

R2 

J  NO,  RETURN  WITH  A  «  0 

MV  I 

A  ,0FFH 

?  YES,  RETURN  WITH  A  »  0FFH 

RET 

*  CNVT16  -  CONVERT  16  BITS  BINARY  DATA  TO  HEX  ASCII 


*  CALL  WITH 

HI  *  AXERESS 

FOR  4  CHARACTER  ASCII  OUTPUT 

* 

STRING 

ft 

BC  -  16  BIT 

BINARY  DATA 

*  RETURNS 

REGISTER  PAIRS  UNCHANGEE 

ft 

A  *  GARBAGE 

ft 

CNVT16  PUSH 

H 

,'SAVE  REGISTERS 

PUSH 

r 

PUSH 

B 

I  NX 

H 

I  NX 

H 

I  NX 

H 

MV  I 

D,4 

J CHARACTER  COUNTER 

CNVT161  MOV 

A  ,C 

;next  4  EITS 

ANI 

0FH 

CPI 

0AH 

; IS  IT  A-F? 

JC 

C  NVT1615 

;  no 

ADI 

7 

;  YES 

CNVT1615  ADI 

'  z' 

;form  ascii 

MOV 

M ,  A 

5STORE  THIS  CHARACTER 

DCX 

a 

5BACK  UP  THROUGH  OUTPUT  AREA 

MV  I 

S,4 

DOUBLE  RIGHT 

ORA 

A 

ISHIFT  RIGHT  4  BITS 

CNVT162  MOV 
RAH 

A,£ 

MOV 

B,A 

MOV 

RAR 

A  ,  C 

MOV 

C ,  A 

dcr 

E 

JEECREMENT  SHIFT  COUNTER 

JNZ 

CNVT162 

*  3T ILL  SHIFTING 

ECR 

E 

JEECREMENT  CHARACTER  COUNTER 

JN2 

CNVT161 

JSTILL  CONVERTING 
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» RESTORE  REGISTERS 


POP  B 

POP  E 

POP  H 

RET 

CNVT8  -  CONVERT  8  BITS  BINARY  IATA  TO  HEX  ASCII 
CALL  WITH  HL  =  AELRESS  FOR  2  CHARACTER  ASCII  OUTPUT 
STRING 

C  =  8  EIT  BINARY  LATA 
RETURNS  REGISTER  PAIRS  UNCHANGEE 


A 

=  GARBAGE  * 

CNVT8 

PUSH 

H 

?SAVE  REGISTERS 

PUSH 

D 

PUSH 

B 

I  NX 

H 

MV  I 

D,2 

JMP 

CNVT161 

? DO  CONVERSION 

*  STAR 

-  PRINT 

A  STAR  * 

STAR 

PUSH 

D 

LXI 

E, STAR  MSG 

?PRINT  IT 

CALL 

PRINT 

POP 

D 

RET 

5BACK  TO  CALLER 

***  MISCELLANEOUS  MESSAGE  ANE  LATA  STORAGE  AREAS  *** 


SIGNON  LB 
DB 

INSTRUC  LB 
LB 
LB 
LB 
LB 
LB 
LB 
LB 
DB 
LB 
LB 
DE 
LB 
LB 
DB 
LB 
LB 
LB 


CR,LF, 'ALTOS  MLS  CONTROL  PROGRAM' 

'  -  VERSION  1.5',CR,LF,LF,'$' 

CR,LF,  'BASIC  AMDS  INSTRUCTIONS CR , LF , LF 
'  A.  THE  PROMPT  FOR  INPUT  OF  LATA  IS' 

'  ">  .  ' ,CR, LF 

'  B.  ALL  INPUTS  MAY  BE  IN  UPPER  CR  lower' 

'  CASE.  'fCRfLF 

'  C.  ADDRESS  AND  DATA  INPUTS  ARE  EXPECTED' 

'  TO  BE  IN  HEX  NOTATION .'  ,CR,LF 

'  L.  TERMINATE  INPUTS  WITH  A  CARRIAGE  ' 

'RETURN  OR  LINE  FEED.  '  ,CR,LF 

'  E.  NORMAL  LINE  EDITING  ON  INPUT  IS  AS  ' 

'IN  CP/M  ANE  MP/M .  '  , CR , LF 

'  F.  FOR  ADDRESS  INPUTS,  THE  PROGRAM  ' 

'WILL  ALWAYS  TAKE  THE  LAST  FOUR  OR  LESS  ' 
CR,LF,  '  HEX  CHARACTERS  ENTERED?  FOR  ' 
'DATA  INPUTS,  THE  LAST  TWO  OR  LESS.',CR,LF 
'  G.  SOURCES  OF  COMMON  ERROR  ARE  INVALID' 

'  HEX  EIGITS ,  TOO  MANY  OR  TOO  FEW',CR,LF 
'  DELIMITERS,  ANE  ILLEGAL  SYNTAX  .',  CR  .LF 
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EE  '  a.  IN  GENERAL,  TEE  SAKE  EATA  I/O  FORMAT ' 
EB  '  AS  USED  IN  DIGITAL  RESEARCH "S  ',  CR  , LF 

EB  '  EET  IS  USEE  HERE.  FOR  EXCEPTIONS,' 

EB  '  CONSULT  THE  USER"S  MANUAL  CR ,  LF 

DB  '  I.  A  QUESTION  MARK  ENTERED  AFTER  THE  ' 

EB  'PROMPT  WILL  CAUSE  THE  INPUT  FORMATS  TO' 

EB  CR, LF 

DB  '  BE  DISPLATED. ',CR,LF 

EB  '  J.  IF  THE  ESCAPE  KET  IS  ENTEREE  EURING  ' 

EB  'INPUT  THEN  THE  USER  IS  RETURNED ', CR  ,LF 

DB  '  TC  THE  MENU.  ',CR,LF 

EB  '  K.  FOR  FURTHER  DETAILS,  CONSULT  THE  ' 

EB  'USER' 'S  MANUAL' ,CR,LF,LF 

DB  'PRESS  ANY  KEY  TO  CONTINUE  >$' 


MENUMSG  EB 
DB 
EB 
EB 
DB 
EB 
EB 
DB 
DB 
DB 
DB 
IB 
EB 
DB 
IE 
EB 
DB 
IB 
EB 
DB 
EB 
EB 
DB 
DB 
IB 
DB 
DB 
DB 

SYSMSG  DB 
EB 

MESMSG  DB 
HOSTMSG  DB 
NOMENMSG  DB 
YESMENMG  TB 
MENERRMG  DB 
MFEELERR  EB 


CR.LF,' 

'  MENU', CR.LF 

'  HOST  COMMANDS 

'  MES  COMMANDS', CR.LF, LF 

'A.  SUPPRESS  PRINTING  MENU 
'G.  DOWNLOAD  HEX  FILE  -  DISK  TO  MDS  ' 
'MEMORY', CR.LF 

'B.  DO  NOT  SUPPRESS  PRINTING  MENU 

'H.  UPLOAD  MES  MEMORY  TO  HEX  DISK  FILE' 

CR.LF 

'C.  BASIC  INSTRUCTIONS 

'I.  EXAMINE/SET  MrS  MEMORY  LOCATION(S)' 

CR.LF 

'D.  HEXADECIMAL  ADD  &  SUBTRACT 

'J.  CONTINUOUS  SET  OF  MDS  MEMORY ', CR  ,L? 

'E.  RETURN  SYSTEM  CONTROL  TO  HOST 

'K.  FILL  MDS  MEMORY  WITH  SPECIFIED  3YTE ' 

CR.LF 

'F.  RETURN  TO  CP/M 

'L.  LOCATE  BYTE  SEQUENCE  IN  MDS  MEMORY' 

CR  ,LF 

#  * 

'M.  DUMP  MDS  MEMORY  LOCATION(S)  TO  CONSOLE' 
CR.LF 

'N.  EXECUTE  MIS  MEMORY  FROM  SPECIFIED '  ,CR ,LF 
/  ' 

'  LOCATION'  , CR.LF, 

'SYSTEM  STATUS:  $$$$  IN  CONTROL;' 

'  $$  MENU  SUPPRESSION', CR, LF, 

'MES  $' 

'HOST*' 

'no$  ' 

'  $' 

CR.LF, 'INVALID  MENU  SELECT  ION  '  ,CR , LF , ' 
CR.LF, 'TOO  MANY  OR  TOO  FEW  DELIMITERS  IN' 
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PERONLYM 

INVHEXER 

SEDELERR 

SECEELER 

AMEIGERR 

CCLONERR 

FNCHARER 

HEXFTERR 

SPFNERR 

NFRTERR 

FNFNEERR 

CKSUMERR 

ESKREERR 

EIR5PERR 

SGFAERR 

DDSPCERR 


ERIVERR 


CNTRLMSG 

ABORTMSG 
ABORT EDM 

EXMSG 

EXMSG2 


FORMTMSG 


EB 

DB 

EB 

EB 

EB 

EB 

DB 

DB 

DB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EE 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EE 

EB 

DB 

EB 

EB 


'  INPUT' , CR.LF, 

CR  ,LF,  'PERIOD  ONLY  PLEASE  !',CR,LF,'$' 
CR.LF, 'INVALID  HEX  DIGIT  '  ,CR ,LF  ' 

cf,lf,'can"t  have  a  eelimitee  at  start  or' 

'  ENE  OF  INPUT',  CR,  LF ,  '%  ' 

CR.LF, 'TWO  OR  MORE  EELIMITERS  SEQUENTIALLY' 
C R ,  LF  ' 

CR.LF 1 'AMBIGUOUS  FILENAMES  NOT  ALLOWED' 
CR.LF, 

CR.LF, 'COLON  (:)  NOT  PROPERLY  PLACED  IN  ' 
'FILENAME  '.CR.LF, '$' 

CR.LF, 'FILENAME  TOO  LONG  CR  TOO  SHORT' 
CR.LF, '(8  CHARS  MAX,  1  CHAR  MIN ) ' , CR ,LF,  '$  ' 
CR.LF, 'HEX  FILETYPES  ONLY  !',CR,LF,'$' 
CR.LF, 'NO  SPACES  ALLOWEE  IN  FILENAME' 

CR.LF,  '$  ' 

CR.LF, 'NON-PRINTABLE  CHARACTERS  NOT  ' 
'ALLOWEE  IN  FILENAME' ,CR ,LF  ' 

CR.LF, 'FILE  NOT  FOUND  ' ,CR , LF, '$  ' 

CR.LF, 'HEX  CHECKSUM  ERROR  '  ,CR  ,LF , 

CR.LF, 'DISK  REAE  ERROR ', CR , LF ' 

CR.LF, 'OUT  OF  DIRECTORY  SPACE  '  ,CR , LF ' 
CR.LF, 'START  ADDRESS  CANNOT  BE  GREATER  ' 
'THAN  FINISH  AEERESS ', CR.LF  ' 

CR.LF, 'OUT  OF  DIRECTORY  OR  DISK  STORAGE  ' 
'SPACE', CR.LF, 'PARTIAL  FILE  WAS  NOT  ' 

'SAVED  !  '  , CR , LF  ,  '$ ' 

CR.LF, 'WARNING  -  ONLY  CURRENTLY  SELECTED  ' 
'DISK  WILL  BE  USEE,  INPUT  IGNORED  !' 

G R  LF  ' $  ' 

CR.’lfI'MES  IS  IN  CONTROL,  CAN"T  CONTINUE' 

'  UNTIL  OPTION  "E"  IS  S  ELECTEE  ',  CR  ,LF  ,'$  ' 
CR.LF, 'ABORT  MES  CONTROL  (Y/N)?  $' 

CR.LF, 'MDS  CONTROL  ABORTED,  HOST  IN  ' 
'CONTROL.  ', CR.LF,  '$' 

CR.LF, 'WILL  CONSOLE  BE  RECEIVING  EATA  ' 

'FOR  DISPLAY  FROM  THE  MDS  (Y/N  )?$ ' 

C  R  LF  LF 

'  MES  *  IS  IN  CONTROL,  HOST  MAY  REGAIN  ' 
'CONTROL  ONLY  BY  TYPING  THE  ESCAPE  KEY  !' 
CR.LF, LF ,  '$  ' 

CR.LF,'  INPUT  PARAMETER  FORMATS  ARE  AS  ' 

'  FOLLOWS  :  '.CR.LF 
'  MENU  >X 

'  X  IS  OPTION  SELECTION  (A-N)', CR.LF 
'  HEXARITH  >XXXX  YYYY 

'  XXXX  5,  YYYY  ARE  HEX  I NTEGERS  ' , CR , LF 
'  EWNLOAE  >FILENAME( .HEX)  ' 

'  (.HEX)  IS  OPTIONAL', CR.LF 
'  UPLOAD  >FILENAME( .HEX) '.CR.LF 

'  >XXXX  YYYY 
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FMTMSG1 


DB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

DB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

EB 

EB 

EB 

DB 

EE 

LB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

DB 

DB 

DB 

EB 

DB 

DB 


'  XXXX  &  YYYY  ARE  MDS  HEX  START  AND  ' ,CR  ,LF 

r  * 

'  END  ADDRESSES  FOR  UPLOAD  \ CR , LF 
'  EXAMINE  MDS  >XXXX 
'  XXXX  IS  FIRST  MES  HEX  ADDRESS  TO' 

CR.LF,  ' 

'  EXAMINE  ANI  SET', CR.LF 
'  >XXXX  YT  ZZ 

'  XXXX  IS  HEX  ADDRESS,  YY  IS  HEX  DATA' 
CRiLF,  ' 

'  AT  THAT  ADDRESS,  ZZ  IS  CARRIAGE  RETURN' 
CR, LF,  ' 

'  or  ZZ  13  NEW  HEX  LATA' 

CR.LF,' 

'  or  ZZ  IS  CR.LF 

'  CONTINUOUS  >XXXX 

'  XXXX  IS  MES  HEX  START  ADDRESS  FOR' 

CR.LF,' 

'  FIRST  CHANGE'  ,CR,LF 

'  >AA  BB  CC  -  ' 

'  ARE  HEX  DATA  FOR  ENTRY  INTO  MDS  MEMORY' 
CR.LF,' 

'  (255  ENTRIES  MAX,  INCLUDING  DELIMITERS)' 

CR.LF 

#  / 

'  IF  ONLY  A  IS  TYPEE  AFTER  THE' 

CR  LF  '  ' 

'  ’prompt,  THE  OPTION  IS  ENDED', CR.LF 
'  FILL  >XXXX  YYYY  ZZ 

'  XXXX  E  YYYY  ARE  MDS  HEX  START  AND' 

CR.LF,' 

'  END  ADDRESSES  TO  FILL  BETWEEN; ', CR.LF 
/  * 

'  zz  is  hex  data  to  use  for  fill', cr.lf 

CR.LF, 'PRESS  ANY  KEY  TO  CONTINUE  >$ ' 

CR.LF.LF 

'  LOCATE  SEQ.  >XXXX (  YYYY) 

'  XXXX  &  YYYY  ARE  MDS  HEX  START  AND', CR.LF 
/  / 

'  OPTIONAL  END  ADDRESSES  TO  SEARCH  EETWEEN ' 
CR,LF 

'  >AA  BB  ...  PP 

'  ARE  UP  TO  A  16  BYTE  HEX  SEQUENCE '  ,CR  ,DF 

'  TO  SEARCH  FOR  IN  MES  MEMORY '.CR.LF 

'  LUMP  >XXXX(  YYYY) 

'  XXXX  6.  YYYY  ARE  MES  HEX  START  ANE' 

CR.LF,' 

'  OPTIONAL  END  ADDRESSES  TO  DUMP  BETWEEN' 
CR.LF 

'  EXECUTE  >XXXX 
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HEXMSG 

HEXMSG1 

HEXMSG2 

EXAMSG 

EXAMSG1 

EXAM5G2 

FILLMSG 

CSSTMSG 

EXECMSG 

LOCMSG 

NOTFOUND 

FOUNEM5G 

FOUNEMS1 

EUMPMSG 

EUMPMSG1 

LUMPMSG2 

DUMPMSG3 

MENUPROl 

MEN 0 PROM 
PROMPT 
FILENAME 
DWNLEM3G 

EWNLONE 

DWNDONE1 

UPLEMSG 

UPLEONE 

DATAMSG 

STARMSG 

FCBMSG 


SYSSTAT 


MENUSUPF 


EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EB 

EB 

DB 

EE 

EE 

EB 

EB 

EB 

DB 

EB 

EB 

DB 

EE 

DB 

DB 

EB 

EB 

DB 


'  XXXX  IS  MES  HEX  ADDRESS  WHERE  EXECUTION' 
CR.LF 


'  IS  TO  BEGIN', CR.LF.LF 
'PRESS  ANY  KEY  TO  CONTINUE  >$' 

cr  »lf, 'hex  a ee/sub ' , cr ,lf, ' 

'SUM  =  ?$$$ 

'DIFF  =  $$$$',  CR.LF, 

CR, IF, 'EXAMINE/SET  MES  MEMORY  '  ,CR , LF  , ' 
'  $$  $' 


CRjLF,  'FILL  MES  MEMORY  LOCATION (S )  '  , CR  ,LF 

CR,LF, 'CONTINUOUS  SET  MES  MEMORY  W/O  ' 
'EXAMINE  '  ,CR  ,LF, 

CR.LF, 'EXECUTE  MES  MEMORY  FROM  SPECIFIED  ' 
'ADDRESS  ',CR,LF,  ' 

CR.LF, 'LOCATE  BYTE  SEQUENCE  IN  MES  MEMORY' 
CR.LF, 

CR.LF, 'BYTE  SEQUENCE  NOT  FOUND  !', CR.LF,':? 
CR.LF, 'FOUND  STARTING  AT  Mrs  AEERES3  ' 
'$**$', CR.LF,'*' 

CR.LF, 'DUMP  MDS  MEMORY  ',CR, LF, '$ ' 

'$***  %' 

'  $$  r 


CR.LF, 'OPTION  A  *  MENU  SUPPRESSION,  B  =  ' 
'NO  MENU  SUPPRESSION' 

CR.LF, 'INPUT  MENU  OPTION  $' 

'>$' 

'FILENAME  $' 


CR.LF, 'DOWNLOAD  HEX  FILE  FROM  DISK  TO  Mrs ' 

'  MEMORY', CR.LF,  '$' 

CR.LF, 'DOWNLOAD  COMPLETE!' , CR.LF 

'MDS  START  ADDRESS  =  $$$$3  ,  LAST  ADDRESS  ' 

'*  *$$$H',CR,LF, '*' 

CR.LF, 'UPLOAD  (SAVE)  MES  MEMORY  TO  DISK  ' 

'HEX  FILE', CR.LF,  '$  ' 

CR.LF, 'UPLOAD  TO  DISK  SUCCESSFULLY  ' 

'COMPLETED' , CR.LF,  '*  ' 

'  *$  $' 

' 

0,203 ,20fl,20H,20H,20H,20H,20H,20E 
'HEX',  0,0, 0,0 


ES  1  ?SYSTEM  STATUS  FLAG 

,•  HOST  IN  CONTROL  =  0 
;  MDS  IN  CONTROL  =  1 

ES  1  JMENU  SUPPRESSION  FLAG 

;  0  =  NC  SUPPRESSION 
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MENUFLG 

ES 

1 

FRSTEEL 

EB 

0 

FIRST 

DV 

0 

SECONE 

LV 

0 

SUM 

Eli 

0 

START 

DW 

0 

FINISH 

CV 

0 

MESEATA 

ES 

1 

CONSDATA 

DS 

1 

MESREYF 

ES 

1 

FIRSTIME 

ES 

1 

BUFFCNT 

ES 

1 

CURRENT 

DS 

1 

CONTFLG 

ES 

1 

FCB 

DS 

36 

CONBUFF 

£B 

48 

DS 

256 

LSKBUFF 

EQU 

$ 

END 

STA 

1  =  SUPPRESSION 
STORAGE  FOR  MENU  CHOICE 
FIRST  DELIMITER  FLAG 
FIRST  NUMBER  TO  ADD/SUB 
SECONE  NUMBER  TO  A EE/ SUB 
SUM  OF  HEX  NUMBERS 
STARTING  ADDRESS  FOR 
COMMANE  USE 
FINISH  AEERESS  FOR 
COMMANE  USE 

TEMP.  STORAGE  FOR  EATA 
FROM  MES 

TEMP.  STORAGE  FOR  DATA 
FROM  CONSOLE  TO  MES 
MES  REAET  FLAG 
0FFH  =  DONE,  0  =  NOT  DONE 
FIRST  TIME  THROUGH  REAL 
BUFFER  COUNT  SPACE 
CURRENT  DISK  DRIVE 
CONTINUATION  FLAG  FOR  USK 
READ  OPERATIONS 
00  =  NC  CONTINUE 
0FFH  =  CONTINUE 
SPACE  FOR  FILE  CONTROL 
BLOCK 

DEFAULT  TO  48  CHARACTERS 
MAX  FOR  CONSOLE  BUFFER 
PROVIDE  FOR  255  CHARACTERS 
START  OF  EISK  BUFFER 
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APPENEIX  E 


MDS  MONITOR  SOFTWARE  LISTING 


**#$$*#**#***  ft****##***##****#**#**#*#**#****##**  **#  *#«**$** 


* 

* 

* 

* 


AMES1  -  ALTOS  MICROCOMPUTER  LEV ELOPMENT  SYSTEM 

(MES  CCEE ) 


* 


*  VERSION  1.3,  28  MAY  1981 

*  LT.  STEPHEN  M.  HUGHES  -  AUTHOR 

* 


*  THIS  IS  THE  MES  MONITOR  COEE  FOR  THE  AMDS.  THE  AMIS  * 

*  USER'S  MANUAL  SHOULD  EE  CONSULTED  FOR  SPECIFICS  NOT  * 

*  GIVEN  IN  THE  DOCUMENTATION  WHICH  FOLLOWS.  * 

*  * 


RAM 

EQU 

2000H 

CHASTAT 

EQU 

0E4H 

CHAEATA 

EQU 

0E3H 

CHBSTAT 

EQU 

0E2H 

CHBDATA 

EQU 

0E1H 

BAUEREG 

EQU 

0E0H 

XON 

EQU 

011H 

ORG 

0000H 

JMP 

NOP 

NOP 

PORTSET 

USERIO 

JMP 

USRIO 

START  OF  ONBOARD  RAM 
CHANNEL  A  STATUS  ANE 
COMMANE/CONTROL  PORT 
CHANNEL  A  DATA  PORT 
CHANNEL  B  STATUS  AND 
COMMAND/ CONTROL  PORT 
CHANNEL  3  DATA  PORT 
(NOT  USEE  IN  TEIS  COLE) 
PORT  FOR  SETTING  EAUE  RATE 
OF  SERIAL  PORTS 
CONTROL  Q 


;  START  OF  PROM 

JSET  UP  SERIAL  PORT  ON  RESET 


JUSER  CALL  FOR  CONSOLE  I/O 


ORG 

0038H 

JEST  7  LOCATION 

JMP 

EXECDNE 

JUSER  RST  7  COMES  HERE  FOR 

J  RETURN  OF  CONTROL  TO  HOST 
J  AND  ONBOARD  MONITOR 

ORG  0040H 

MONITOR  LX  I  SP, STACK 


JRST  7+8 

JSET  STACK  EVERY  TIME 
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XRA 

A 

STA 

OFTION 

{  RESET  OPTION  FLAG 

CALL 

HOST  IN 

JGET  COMMAND  FROM  HOST 

MON  I TORI  ANI 

7FH 

5 COMMAND  WILL  EE  ASCII 

CPI 

'w' 

5  DOWNLOAD  COMMAND? 

JZ 

DWNLD 

CPI 

'U' 

{UPLOAD  COMMAND? 

JZ 

UPLD 

CPI 

'X' 

; examine/set  memory  cmt? 

JZ 

EXAM 

CPI 

'C' 

;  CONT 1 NUOUS  MEMORY  SET  CME? 

JZ 

CSET 

CPI 

'F' 

{FILL  COMMAND? 

JZ 

FILL 

CPI 

'L  ' 

J LOCATE  SSO.  COMMAND? 

JZ 

LOCATE 

CPI 

'z' 

; DUMP  memory  command? 

JZ 

DUMP 

CPI 

'e' 

{EXECUTE  MEMORY  CME? 

JZ 

EXEC 

JMP 

MONITOR 

{ANYTHING  ELSE  IS  IGNORED 

*  EWNLD  -  DOWNLOAD  HEX  DISK  FILE  TO  MES  MEMORY  ROUTINE 
ROUTINE  LOOPS  UNTIL  A  HOSTEONE  COMMA ME  13 
DETECTED  BY  THE  INPUT  ROUTINE  * 


DWNLD 

CALL 

HOSTIN 

MOV 

C  ,  A 

CALL 

GETAIER 

IWNLD1 

CALL 

HOSTIN 

MOV 

M ,  A 

I  NX 

3 

ECR 

C 

JN  Z 

DWNLDl 

JMP 

DWNLD 

*  UPLD 

-  UPLOAD 

MES  MEMORY 

UPLD 

CALL 

GETAEER 

SHLE 

START 

CALL 

GST  A  DDR 

SHLD 

FINISH 

LHLD 

XCHG 

START 

UPLI1 

LEAX 

D 

CALL 

HDATAOUT 

I  NX 

D 

CALL 

RRC 

BUFFCMP 

JNC 

UPLDl 

;get  number  of  bytes  to 

;  EXPECT 

5C  =  BYTE  COUNTER 

;get  starting  aeeress 

?GET  A  BYTE 
» STORE  IT 


.’MORE  BYTES  TO  GET 

;get  new  aeeress  first 
TO  DISK  HEX  FILE  * 

{GET  STARTING  AEERESS 
{GST  FINISH  ADDRESS 


;de  =  start  address 

{GET  DATA 
i SENE  IT 

JEONE  YET? 

;  no 


121 


CALL  MESREY  J  YES 

JMP  MONITOR 

*  EXAM  -  EXAMINE/SET  MEMORY 

*  loops  till  input  letects  hostione  cqmmane  * 


EXAM 

CALL 

GETAEDR 

JGET  STARTING  ADDRESS 

EXAM1 

MO  V 

A  ,M 

JSEND  DATA  AT  RL  AEDRESS 

;  TO  HOST 

CALL 

SEATAOUT 

CALL 

HOSTIN 

JGET  NEW  DATA 

MOV 

M,  A 

J  DEPOSIT  IT 

I  NX 

H 

JMP 

SXAM1 

; LOOP  till  hcstdone 

*  CSST 

-  CONTINUOUS  SET  OF  MES 

MEMORY 

LOOPS 

TILL  HOSTEONE  EE 

TECTEI  41 

CSST 

CALL 

GETADDR 

JGET  STARTING  ADDRESS 

CSET1 

CALL 

HOSTIN 

JGET  DATA 

MOV 

M,A 

J  DEPOSIT  IT 

JMP 

CSETl 

;  loop 

*  FILL 

-  fill 

EES IGNATEL  MEMORY 

LOCATIONS  WITH  SPECIFIED 

* 

EATA 

* 

FILL 

CALL 

GST  A  DDR 

JGET  FIRST  ADDRESS 

SHLE 

START 

CALL 

GETAEDR 

JGET  LAST  ADDRESS 

SHLE 

FINISH 

CALL 

HOSTIN 

JGET  DATA  TO  FILL  WITH 

MOV 

C ,  A 

J  SAVE  IT 

LHLD 

START 

XCHG 

J IE  =  START  AEDRESS 

FILL1 

MOV 

A  ,C 

JGET  FILL  DATA 

STAX 

D 

J  DEPOSIT  IT 

I  NX 

L 

CALL 

BUFFCMP 

JDONE  YET? 

RRC 

JNC 

filli 

J  NO,  KEEP  FILLING 

CALL 

MESDONE 

J  YES 

JMP 

MONITOR 

*  LOCATE  -  LOCATE  BYTE  SEQUENCE  IN  MIS  MEMORY 

*  SENES  TO  HOST  IF  FOUNT 

*  SENDS  'N'  TO  HOST  IF  NOT  FOUND  * 


LOCATE  CALL 

GETAEER 

JGET 

START  ADDRESS 

SHLE 

START 

CALL 

GETAEDR 

JGET 

FINISH  AEDRESS 

SHLE 

FINISH 
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LX  I 

H.DATABUFF 

MV  I 

C  ,0 

LOCIN 

CALL 

HOSTIN 

PUSH 

PSW 

LDA 

RRC 

HSTRDYFL 

JC 

SEARCH 

POP 

PSW 

MOV 

M ,  A 

I  NX 

H 

INR 

r* 

U 

JMP 

LOCIN 

SEARCH 

MOV 

A  ,C 

STA 

LOCOUNT 

LHLE 

XCHG 

START 

LX  I 

H.DATABUFF 

SRCH1 

LDAX 

E 

CMP 

M 

JZ 

MATCH 

I  NX 

E 

CALL 

RRC 

BUFFCMP 

JC 

notfne 

JMP 

SRCH1 

MATCH 

XCHG 

SHLC 

XCHG 

MATCHAIR 

MATCHl 

DCR 

C 

JZ 

FOUNE 

I  NX 

C 

CALL 

RRC 

BUFFCMP 

JC 

NOTFNE 

I  NX 

E 

LDAX 

E 

CMP 

M 

JZ 

MATCHl 

LHLE 

EATABUFF 

INX 

E 

LDA 

LOCOUNT 

MOV 

C  ,A 

JMP 

SRCH1 

FOUND 

MV  I 

A.'F' 

CALL 

HEATAOUT 

LHLD 

MATCHAER 

MOV 

A, a 

CALL 

HEATAOUT 

MOV 

A  ,L 

CALL 

HEATAOUT 

JMP 

MONITOR 

i STORE  SEQUENCE  HERE 
EAT A  COUNTER 
'SET  SEQUENCE 

IF  SET  THEN  NO  MORE  DATA 

START  SEARCH 
MORE  DATA 
STORE  IT 

BUMP  COUNTER 

GET  SEQUENCE  COUNT 
SAVE  IT 

IE  =  START  ADDRESS 
HI  =  START  OF  SEQUENCE 
GET  MES  DATA 
IS  THERE  A  MATCH? 

YES 

NO,  SEE  IF  DONE 

YES,  SEQ.  NOT  FOUND 
NO,  TkY  AGAIN 
HL  =  FIRST  MATCH  ADDRESS 
SAVE  IT 

RESTORE  LS  5.  HL 
ALL  MATCHES  YET? 

YES,  FOUND  SEQUENCE 

TONS  YET? 

YES,  SEQ.  NOT  FOUND 
NO,  LOOK  FOR  NEXT  MATCH 

ANOTHER  MATCH? 

YES 

NO,  START  ALL  OVER 

RE-IN  IT  .  SEC.  COUNT 

KEEP  TRYING 
SEfsi  FOUND  TO  HOST 

GET  FIRST  ACER.  OF  MATCH 
SEND  IT  TO  HOST,  MSB  FIRST 

THEN  LSB 

ALL  LONE 
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NOTFNE 

MV  I 

A  ,'N' 

5 SENE  NOT  FOUNE  TO  HOST 

CALL 

HDATAQUT 

JMP 

MONITOR 

*  LUMP 

-  LUMP 

MIS  MEMORY  TO 

HOST  CONSOLE  * 

LUMP 

CALL 

G  STALER 

;get  start  aeeress 

SSL! 

START 

CALL 

GETAEDR 

;get  FINISH  address 

SHLE 

FINISH 

LHLE 

START 

XCHG 

;i:E  *  START  ADDRESS 

EUMP1 

LEAX 

E 

IGET  MES  MEMORY  EATA 

CALL 

HIATAOUT 

I  NX 

D 

CALL 

BUFFCMP 

i  LONE  YET? 

RSC 

JfiC 

DUMP1 

;  no 

CALL 

MESREY 

;  YES 

JMP 

MONITOR 

*  EXEC  -  EXECUTE  MBS  MEMOS! 

*  PROGRAM  TO  3E  EXECUTE!  MAY  RETURN  MONITOR  VIA 

*  A  'RST  ?'  INSTRUCTION  OR  A  JUMP  TO  LOCATION 

*  0000H 

*  HOST  CONSOLE  I/O  IS  AVAILABLE  AS  EXPLAINER  IN 

*  THE  USRIO  ROUTINE  * 

EXEC  STA  OPTION  *  SAVE  OPTION 

CALL  GETAELR  ’.GET  EXECUTION  ALERESS 

PCHL  ;  GO  TO  IT 


***  UTILITY  SUBROUTINES  *** 


*  BUFF CMP  -  COMPARE  LE  TO  FINISH  AELRESS  +  1 


* 

IF 

EQUAL,  RETURN  A 

*  0FFH 

* 

• 

IF 

UNEQUAL,  RETURN 

A  =  00  * 

BUFFCMP 

PUSH 

a 

PUSH 

D 

;de=current  addr 

TO 

COMPARE 

LHLE 

FINISH 

;EL  *  FINISH  A El 

RESS 

+  1 

I  NX 

H 

MOV 

A  ,H 

;h  =  D? 

CMP 

E 

JN2 

NOCMP 

;  no 

MOV 

A  ,L 

;  YES,  L  *  E? 

CMP 

E 

JNZ 

NOCMP 

;  no 

MV  I 

A.0FFH 

;  YES,  ADDRESSES 

ARE 

EQUAL 

POP 

r 
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##*■## 


pop  a 

ggV 

NOCMP  XRA  A  DEPRESSES  NOT  EQUAL 

POP  E 

POP  H 

RET 

*  GETAEER  -  GET  AEERESS  FROM  HOST  * 

GETADDR  CALL  HOSTIN  :GET  MSB  FIRST 

MOV  H ,  A 

CALL  HOSTIN  ;  THEN  LSB 

MOV  L,A 

RET 

*  PORTSET  -  SET  UP  SERIAL  I/O  PORTS  ON  EVERY  RESET  OR 

*  CALL  TO  0000H  * 

PORTSET  MV  I  A,?7H 

OUT  BAUD REG 

MVI  A.01001110B 

OUT  CHASTAT 

OUT  CHBSTAT 

MVI  A  , 00110L11B 

OUT  CHASTAT 

OUT  CHESTAT 

JMP  MONITOR 

USER  TO/FROM  HOST  CONSOLE  I/O  ROUTINE 
USER  EXECUTEE  PROGRAMS  IN  MLS  MEMORY  MAY 
COMMUNICATE  WITH  THE  HOST  CONSOLE  VIA  A  CALL 
TO  LOCATION  0005H 

FOR  INPUT  FROM  THE  HOST  CONSOLS,  CALL  WITH 
REG.  C  =  1  -  CHARACTER  WILL  BE  RETURNEE  IN  A 

FOR  OUTPUT  TO  HOST  CONSOLE,  CALL  WITH  THE 
CHARACTER  IN  A  ANE  REG.  C  =  2 
TO  CHECK  THE  FOR  HOST  INPUT,  CALL  WITH 
REG.  C  *  3  -  RETURNS  A  =  00  I?  NO  INPUT  HAS  BEEN 
RECEIVER  FROM  THE  HOST?  A  =  0FFE  IF  INPUT  IS 
WAITING 

IF  C  <>  1,  2  or  3  THEN  ROUTINE  RETURNS  WITH  C  =  0FFB 
USRIO  PUSH  PSW 

MOV  A  ,C  .'SEE  IF  INPUT  OR  OUTPUT 

CPI  I 

JZ  USRIN 

CPI  2 

JZ  US ROUT 

CPI  3  {WANT  STATUS  ? 

cz  hostat  ;  yes,  get  it 


*  USRIO  - 

* 

* 

* 

*  - 
* 


* 

* 


JSET  RATE  TO  9500  BAUE 

5 SENE  CONTROL  EYTE 
;  1  STOP  BIT 

;  NO  PARITY,  8  BITS/CEAR 
J  16x  RATE  FACTOR 
» SENE  COMMANE  BYTE 
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MV  I 

C.0FFH 

J ILLEGAL  COEE 

RET 

USRIN 

CALL 

MESREY 

JTELL  HOST  TO  SENE  INPUT 

POP 

PSW 

CALL 

HOSTIN 

;get  INPUT 

RET 

;  RETURN  WITH  IT  IN  A 

USROUT 

POP 

PS  V 

CALL 

RET 

HEATAOUT 

;sene  character  to  host 

*  EXSCDNE  -  THIS  RETURNS 

USER 

PROGRAM  TO  MONITOR  AND 

* 

RETURNS  CONTROL 

TO  HOST  IF  A  RST  7  IS  EXECUTE!  * 

EXECENE 

LEA 

OPTION 

ISEE  IF  THE  EXECUTE  OPTION 

CPI 

'E  ' 

;  WAS  IN  EFFECT  WHEN  CONTROL 
;  WAS  TRANSFERP.EE  HERE 

JNZ 

MONITOR 

;  NO,  HOST  IN  CONTROL 

CALL 

MESEONE 

;  YES,  GIVE  HOST  CONTROL 

JMP 

MONITOR 

*  HOSTIN  -  GET 

INPUT  FROM 

HOST 

&  INTERPRET  TYPE  OF  INPUT  * 

HOSTIN 

CALL 

GETCHAR 

;get  INPUT 

HOSTIN1 

CPI 

55H 

; IS  IT  A  COMMANE? 

JZ 

HOSTCME 

CPI 

0FFH 

; IS  IT  EATA? 

JZ 

HOSTETA 

JMP 

HOSTREY 

; VJST  EE  HOST  REAEY  FLAG 

HOSTCME 

CALL 

GETCHAR 

,‘GE?  ACTUAL  COMMANE 

JMP 

MONITOR1 

;  GO  TO  MONITOR  FOR  DECODE 

HOSTETA 

CALL 

GETCHAR 

;get  iata 

RET 

;  RETURN  TO  CALLER  WITH  IT 

HOSTRDY 

CALL 

GETCHAR 

,‘GET  READY  FLAG 

MV  I 

A  ,0FFH 

J  SET  FLAG  IN  MDS 

STA 

HSTREYFL 

RET 

J RETURN  TO  CALLER 

GETCHAR 

CALL 

RRC 

HOSTAT 

;LOOP  TILL  CHAR.  IS  WAITING 

JNC 

GETCHAR 

GETCHAR1  IN 

CHAEATA 

.GET  EATA 

PUSH 

PSW 

MV  I 

A ,  XON 

CALL 

HOSTOUT 

.‘CONFIRM  IT 

POP 

PSW 

RET 

*  HOSTOUT  -  SEN!  EATA  TO  HOST  * 

HOSTOUT  PUSH  PSW 

CALL  HOSTAT  ! ANYTHING  FROM  HOST?  (HOST 
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RRC 

J  HAS  PRIORITY) 

JNC 

HOSTOUT1 

;  NO 

CALL 

GETCHAR1 

;  YES  ,  GET  IT 

CALL 

HOST  INI 

♦IF  COMMAND,  BACK  TO  MONITOR 

,*  ELSE  IGNORE  IT 

HCST0UT1  IN 

CHASTAT 

JGET  PORT  STATUS 

ANI 

i 

* 

JZ 

HOSTOOT1 

;  LOOP  TILL  READY  TO  5ENI 

POP 

PSW 

♦SENE  CHARACTER 

OOT 

CHADATA 

CPI 

XON 

JEON'T  WAIT  FOR  XON 

R2 

J  CONFIRMATION 

XONCK  CALL 

HOSTAT 

♦‘WAIT  FOR  CONFIRMATION 

RRC 

JNC 

XONCK 

IN 

CHADATA 

JGET  IT 

RET 

*  HOSTAT  -  HOST 

INPUT  STATUS  * 

HOSTAT  IN 

CHASTAT 

ANI 

2 

RZ 

J  NO  CHAR.  WAITING,  RET  A=0 

MV  I 

A ,0FFH 

♦CHAR.  WAITING,  RET  A=0FFH 

RET 

*  HEATAOUT  -  SENE  EATA  TO 

HOST 

IN  PROPER  FORMAT  * 

HEATAOUT  PUSH 

PSW 

♦SAVE  EATA 

MV  I 

A.0FFH 

J  NEXT  CHARACTER  IS  EATA 

CALL 

HOSTOUT 

POP 

PSW 

PUSH 

PSW 

CALL 

HOSTOUT 

JSEND  DATA 

POP 

PSW 

JRESTORE  DATA 

RET 

*  MDSDONE  -  SEND  MES  DONE 

COMMAND  * 

MESEONE  MV I 

A,55B 

♦  NEXT  CHARACTER  IS  COMMAND 

CALL 

HOSTOUT 

MV  I 

a,  V 

;  QUIT  COMMAND 

CALL 

HOSTOUT 

RET 

*  MDSRD7  -  MES 

IS  READY  FOR  INPUT  OR  OTHER  ACTION  BY  HOST  * 

MESRET  MV  I 

A.00H 

J  NEXT  CHAR.  IS  READY  FLAG 

CALL 

HOSTOUT 

MV  I 

A  , 00H 

CALL 

HOSTOUT 
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***  EATA  STORAGE  AREAS  -  IN  ONBQARE  RAM  *** 


ORG 

RAM 

HSTREYFL 

ES 

1 

ihost  reaey  flag 

;  00  =  NOT  REAEY 
;  OFFH  =  READY 

MATCHAER 

EM 

0 

I  STORAGE  FOR  FIRST  UtRESS 
;  OF  MATCH 

LOCOUNT 

DS 

1 

» STORAGE  FOR  BYTE  COUNT 

START 

EM 

0 

5STOSAGE  FOR  START  6. 

FINISH 

EM 

0 

;  FINISH  AEERESSES 

OPTION 

DS 

1 

♦STORAGE  FOR  OPTION  SELECTEE 

ES 

63 

t ALLOV  FOR  A  32  LEVEL  STACK 

STACK 

ES 

1 

DATABOFF 

DS 

25 

iSTORAGE  FOR  LOCATE  SEQUENCE 

APPENDIX  E 


MDS  MEMORY  TEST  PROGRAM  LISTING 


*  *  *  *  #  #  #  #  *  *  1(1  sjc#  $  #  #  *  *  *  $  #  #  #  *  $  #  #  $  *  *  #  #  $  #  *  £ *  *  #  >i<  *  #  a4<  4  * # *  #  &  #  *  *  #  #  #  #  #  *  # 

*  * 

*  MES  MEMORY  DIAGNOSTIC 

* 

*  VERSION  2.5  11  MAY  1981 

* 

*  THIS  PROGRAM  IS  A  REVISION  CF  THE  Z-80  MEMORY  TEST 

*  PROGRAM  PUBLISHER  IN  THE  FEBRUARY  1981  ISSUE  OF 

*  "ER.  EOBB'S  JOURNAL  OF  COMPUTER  CALISTHENICS  &  CRTHOECNT IA 

*  THE  PROGRAM  HAS  BEEN  TRANSLATEE  TO  8080  ASSEMBLY  CODE  *NE 

*  MOEIFIEE  TO  OPERATE  ON  THE  ALTOS  ANE  MES  SYSTEMS. 

* 

*  REVISIONS  MADE  BY  LT .  STEPHEN  M.  HUGHES  FOR  USE  IN  THESIS 

* 

*  AS  STATED  IN  THE  ORIGINAL  TEXT,  "FURTHER  RESALE  OF  THIS 

*  PROGRAM  IS  PROHIBITED",  UNLESS  INCLUDED  IN  THE  BODY  OF  THE 

*  REVISIONIST'S  THESIS. 

*  * 


ORG 

4000H 

USRIO 

EQU 

0005H 

{USER  I/O  CALL 

BKSPAC3 

EQU 

08H 

{ASCII  BACKSPACE 

ESC 

EQU 

1BH 

{ASCII  ESCAPE  COES 

CR 

EQU 

0DH 

JASCII  CARRIAGE  RFTURN 

LF 

EQU 

0AH 

; ASCII  LINE  FEED 

RCNT 

EQU 

3 

» SEQUENTIAL  READS 

WCNT 

EQU 

3 

{SEQUENTIAL  WRITES 

MEM 

DI 

{EISABLE  INTERRUPTS 

LX  I 

SP,  STACK 

{INITIALIZE  STACK 

LX  I 

B.TEND 

{FORMAT  ADDRESS  OF  END 

LXI 

H,MEMT1 

CALL 

CHA 

*  TEST 

STARTS 

HERE  * 

MEM01 

CALL 

CRLF 

{MAKE  OUTPUT  PRETTY 

LXI 

H,0000H 

{INITIALIZE  PAS  COUNT, 

J  CUMULATIVE  ERROR  COUNT 
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»***»*  ft  «***«*« 


J  AN D  ADDRESS  'OR'  PRODUCT 


MEM03 


SHLD 

MEMF 

SHLE 

MEMX 

SHLE 

MEML 

LXI 

H.-l 

JINIT.  ADDRESS  'AND' 

SHLE 

MEMK 

LXI 

H,MEMA 

{PRINT  PROGRAM  TITLE 

CALL 

DSPLY 

1ST  MOLE 

* 

MV  1 

A ,  1 

{SET  DEFAULT  =  ITEMIZE 

STA 

MEMP 

LXI 

H  ,MEMN 

CALL 

ESPLT 

{PRINT  SELECT  I  ,T  OR  E 

CALL 

CRLF 

MV  I 

A,'>' 

{PROVIDE  A  CUE  MARK 

CALL 

USROUT 

CALL 

USRIN 

{WAIT  FOR  INPUT 

ORI 

20H 

{MAKE  LOWER  CASE 

CPI 

e 

{IF  E,  EXIT 

JZ 

MEM55 

CPI 

'i ' 

{IF  I,  ITEMIZE  ERRORS 

JZ 

MEM04 

CPI 

't' 

{IF  T,  PRINT  TOTAL  ERRORS 
{  ONLY 

JNZ 

MEM03 

S IF  NONE,  TRY  AGAIN 

XRA 

A 

{SET  TOTAL  ONLY  FLAG 

STA 

MEMP 

*  GET  MEMORY  TEST  LIMITS  * 


MEM04 


LXI 

H.MEMB 

CALL 

DSPLY 

CALL 

ENTR 

MOV 

A  ,H 

ORA 

A 

JM 

MEM05 

LXI 

D ,TEND 

PUSH 

a 

MOV 

A  ,L 

SUB 

E 

MOV 

L,A 

MOV 

A  ,H 

SBB 

E 

MOV 

H,A 

POP 

a 

JP 

MEM05 

LXI 

H,MEMT 

CALL 

DSPLY 

{PRINT  ENTER  FBA 

{GET  16  BIT  AEERESS 
; IF  UPPER  BYTE  OF  FBA  13 
{  NEGATIVE,  OK  TO  USE 
J  SO  JUMP 

;  OTHERWISE,  MAKE  SURE  FBA 
{  IS  NOT  WITHIN  TEST  PROGRAM 
i  AREA 

;  (HL  =  HL  -  DZ  -  C) 


;fba  is  ok,  jump 

;IF  FBA  IS  WITHIN  TEST  PROGRAM 
i  AREA,  SET  IT  TO  END  OF 
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MEM05 


LXI 

H.TENE 

J  PROGRAM  &  PRINT  A  EARNING 

SHLD 

MEMI 

JSAVE  FIRST  BYTE  AEERESS  ( FBA ) 

LXI 

H.MEMC 

JPRINT  ENTER  LAST  BYTE  ADDRESS 
;  (LBA ) 

CALL 

ESPLY 

CALL 

ENTR 

J... ACCEPT  AEERESS 

PUSH 

H 

?SAVE  LBA 

PUSH 

H 

ORA 

A 

5  CLEAR  CARRY  FLAG 

PUSH 

H 

J  (EE  =  CONTENTS  CF  MEMI 

J  AND  MEMI  +  1) 

LHLE 

MEMI 

MOV 

E  ,H 

MOV 

E,L 

POP 

H 

MOV 

A  ,  L 

J  MAKE  SURE  FBA  <  LBA 

SUB 

E 

;  (HL  =  HL  -  DE  -  C) 

MOV 

L  ,A 

MOV 

a, a 

SBB 

D 

MOV 

H,A 

JNC 

MEM06 

5  IT'S  OK,  JUMP 

POP 

H 

J RESTORE  STACK 

POP 

H 

LXI 

H,MEMU 

JFBA  IS  >=  LBA  SO  PRINT 

CALL 

D3PLY 

;  ERROR  MESSAGE 

JMP 

MEM04 

;  ANE  ACCEPT  AEERESSES  AGAIN 

*  ALL  AEERESSES  OX  NOW  * 


MEM06 

POP 

B 

; BC  =  LBA 

LXI 

H.MEMG+5 

j  CONVERT  IT  FOR  PRINTING 

CALL 

CHA 

PUSH 

H 

^CONVERT  FBA  FOR  PRINTING 

LHLE 

MEMI 

J  (BC  =  CONTENTS  OF  MEMI 

ANE  MEMI  +  1) 

MOV 

B,H 

MOV 

C  ,L 

POP 

H 

LXI 

H,MEMG 

CALL 

CHA 

POP 

H 

;hl  =  LBA 

PUSH 

H 

MEM08 

LXI 

H.MEMV 

; PRINT  ABORT  INSTRUCTION 

CALL 

DSPLY 

POP 

E 

JIE  =  LBA 

INX 

E 

*LBA  =  LBA  +  1 

*  MAIN  LOOP  OF  MEMORY  TEST  BEGINS  HERE  * 

*  BEGIN  A  PASS  * 
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MEM1 

MV  I 

C.l 

LX  I 

3.0000H 

SHLD 

MEME 

*  TEST 

ALL  OF 

DESIGNATED  MEMORY 

* 

* 

*  WRITE 

PATTERN  INTO  MEMORY  * 

MEM15 

MV  I 

B.WCNT 

MEM2 

LHLD 

MEMI 

CALL 

USRSTAT 

RRC 

CC 

MEM5 

PUSH 

B 

MEM21 

CALL 

PATTN 

MOV 

M,A 

I  NX 

H 

MOV 

A.L 

CMP 

E 

JNZ 

MEM21 

MOV 

A  ,H 

CMP 

E 

JNZ 

MEM21 

POP 

B 

DCR 

B 

JNZ 

MEM2 

MV  I 

B,RCNT 

J  INITIALIZE  PATTERN  NO. 
;  INITIALIZE  ERROR  COUNT 


FOR  CURRENT  PATTERN  * 


; I N IT .  WRITES  COUNTER 

;get  first  BYTE  address  to  TEST 

; CHECK  KEYBOARD 

J IF  CHARACTER  WAITING, 

{  INTERRUPT  TEST 

;SAV2  PATTERN  AND  WRITES 

{  COUNTER 

{COMPUTE  PATTERN  FOR  THIS 
{  MEMORY  ADDRESS 
{  ...WRITE  IT 
{ADVANCE  MEMORY  ADDRESS 
{C3SCK  I?  END  OF  AREA  TO  BE 
{  TESTED 
{LOOP,  NOT  YET 


{LOOP,  NOT  DONE  YET 
{GET  WRITES  COUNTER 
{WRITE  PATTERN  OVER  AND  OVER 

{ I N IT .  READS  COUNTER 


*  NOW  READ  PATTERN  BACK  FROM  MEMORY  AND  COMPARE  TO  COMPUTED 

*  PATTERN.  IF  DIFFERENCE  IS  FOUND  ON  FIRST  READ,  ASSUME  A 

*  POSSIBLE  WRITE  ERROR.  IF  FIRST  READ  MATCHES,  COMPARE  16 

*  MORE  TIMES  LOOKING  FOR  SOFT  READ  ERRORS.  * 


MEM3 

LHLD 

MEMI 

CALL 

USRSTAT 

ORA 

A 

CNZ 

MEM5 

PUSH 

B 

MEM31 

CALL 

PATTN 

MOV 

B,A 

MOV 

A.M 

CMP 

B 

JZ 

MEM32 

MOV 

M,B 

{GET  FBA  OF  MEMORY  TO  TEST 

{CHECK  KEYBOARD 

{IF  CHARACTER  WAITING, 

{  INTERRUPT  TEST 
{SAVE  PATTERN  AND  READS 
{  COUNTER 

{COMPUTE  PATTERN  FOR  THIS 
{  MEMORY  ADDRESS 
{...SAVE  IT 
{READ  MEMORY 
{IS  DATA  CORRECT? 

{  YES,  JUMP 

{WRITE  THE  CORRECT  DATA 
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MEM32 


MEM35 


CALL 

ERR1 

LATA  DOESN'T  MATCH, 

PRINT  POSSIBLE  WRITE 

ERROR  AUDIT 

JMP 

MEM35 

TEST  NEXT  ADDRESS 

DATA  MATCHED  ON  FIRST  TRY 

TRY  FOR  A  SOFT  READ  ERROR 

SUB 

M 

BY  HITTING  THIS  ADDRESS  A 

ADD 

M 

SOLID  16  TIMES 

SUB 

M 

ADD 

M 

SUB 

M 

ADD 

M 

SUB 

M 

ADD 

M 

SUB 

M 

ADD 

M 

SUB 

M 

ADD 

M 

SUB 

M 

ADD 

M 

SUB 

M 

ADD 

M 

CMP 

B 

■DOES  DATA  STILL  MATCH? 

CNZ 

ERR2  J  NO,  PRINT  P03SIELE  READ 

ERROR  AUDIT 

INX 

H 

ADVANCE  MEMORY  ADDRESS 

MOV 

A.L  ; CHECK  IF  REACHED  END  OF  MEMORY 

CMP 

E 

AREA  TO  BE  TESTED 

JNZ 

MEM31 

NOT  DONE  YET,  LOOP 

MOV 

A  ,H 

CMP 

C 

JNZ 

MEM31 

■NOT  DONE  YET,  LOOP 

POP 

B 

'RESTORE  PATTERN  AND  READ 
COUNTER 

DCR 

B 

READ  PATTERN  OVER  AND  OVER 

JNZ 

MEM3 

*  LONE  WITH  ONE  PATTERN,  ADVANCE  TO  NEXT  AND  CHECK  FOR  END 

*  OF  PASS  * 


INR 

C 

MOV 

A  ,C 

CPI 

11 

JNZ 

MEM15 

JMP 

MEM6 

J INCREMENT  PATTERN 

;eone  YET? 

;  NO,  LOOP 

jaudit  this  pass 


*  CHARACTER  WAITING  ON  KEYBOARD,  INTERRUPT  TEST  ANE  CHECK 

*  FOR  EXIT  REQUEST  * 
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MEM5 

CALL 

USRIN 

?GET  INPUT 

CPI 

04H 

;~E  -  FREEZE  ACTION 

JZ 

DISPSTP 

QRI 

20ti 

J  FOLE  TO  LOWER  CASE 

CPI 

V 

J IYNAMI C  SET  ITEMIZE 

JZ 

MAKEI 

CPI 

't' 

,-eynamic  set  total  only 

JZ 

MAKET 

CPI 

e 

JNZ 

STACKIT 

.‘RESTART  TEST  IF  NOT  E 

MEM55 

LX  I 

H,MEMM 

.EXIT  FROM  TEST,  PRINT  GOOEEYE 

call 

DSPLY 

EISPSTP 

CALL 

USRIN 

.WAIT  FOR  ANY  KEY  TO  RESUME 
!  ACTION 

CALL 

RET 

BSODT 

JDGN'T  PRINT  IT 

STACKIT 

LX  I 

SP, STACK 

5  RESET  STACK 

JMP 

MEM01 

f RESTART  TEST 

MAKEI 

MVI 

A,  1 

» make  itemize 

STA 

MEMP 

CALL 

RET 

BSOOT 

MAKET 

MVI 

A ,  0 

JMAKE  TOTAL  ONLY 

STA 

MEMP 

CALL 

BSOOT 

RET 

) 

* 

$ 

EONE  WITH  PASS 

i  THROUGH 

MEMORY  * 

* 

* 

PRINT  CONSOLE 

AUDIT  IN 

THE  FORM: 

* 

PASS:  xxxx  ERRORS:  xxxx  CUM.  ERRORS:  xxxx 

* 

(IF  CUMULATIVE  ERRORS 

>  ZERO  THEN  ALSO  PRINT) 

* 

ANE:  xxxx 

OR:  xxxx 

* 

MEM6  POSH 

D 

?  SAVE  L3A+1 

POSH 

H 

!  (BC  *  CONTENTS  OF 

MEMF 

J  ANE  MEMF  + 

1) 

LHLD 

MEMF 

MOV 

B,H 

MOV 

C ,  L 

POP 

H 

I  NX 

B 

; COUNT  PASSES 

PUSH 

H 

;  (MOV  BC  TO  MEMF) 

MOV 

H,B 

MOV 

L,C 
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SHLI 

MEM? 

POP 

H 

LXI 

3.MEMG1 

^convert  pass  count 

CALL 

CHA 

POSH 

H 

;  (BC  =  CONTENTS  0?  MEME 

5  ANE  MEME  +  1) 

LHLE 

MEME 

MOV 

B  ,H 

MOV 

C  ,L 

POP 

H 

LXI 

H, MEMO 2 

.’CONVERT  ERROR  COUNT 

CALL 

CHA 

PUSH 

H 

?  (RC  =  CONTENTS  OF  MEMX 
!  AND  MEMX  +  1) 

LHLI 

MEMX 

MOV 

B.H 

MOV 

C ,  L 

POP 

H 

LHLE 

MEME 

DAD 

B 

JACCUMULATE  ERRORS  FOR 

J  ALL  PASSES 

SHLE 

MEMX 

PUSH 

H 

» FORMAT  CUMULATIVE  EPRORS 

POP 

E 

LXI 

H , MEMO 23 

CALL 

CHA 

M  VI 

A  ,CR 

;set  up  output  to  skip  'and' 
;  &  'op/  of  failing  memory 
;  addresses  if  no  errors  hav 
;  been  found 

STA 

MEMG25 

LHLD 

MEMX 

MOV 

A  ,H 

;maxe  sure  no  errors 

ORA 

L 

JZ 

MEM67 

;none  tet,  jump 

MV  I 

A/  ' 

jremove  the  carriage  return 
,*  from  the  output  string 

STA 

MEMG25 

PUSH 

H 

;  (BC  =  contents  of  memk 
;  and  memk  +  i ) 

LHLD 

MEME 

MOV 

B.H 

MOV 

C  ,L 

POP 

H 

LXI 

H.MEMG3 

jconvert  logical  'and'  of 
;  failing  addresses 

CALL 

CHA 

PUSH 

H 

;  (BC  =  CONTENTS  of  MEML 
;  AMD  MEML  +  1) 

LHLD 

MEML 

MOV 

B.H 
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#  * 


MOV 

C,L 

POP 

H 

LX  I 

H.MEMG4 

CONVERT  LOGICAL  'OR'  OF 

;  FAILING  ADDRESSES 

CALL 

CHA 

MEM67 

LXI 

H,MEMG 

{PRINT  PASS  AUDIT 

CALL 

ESPLY 

LDA 

MEMJ 

{ROTATE  BIT  CROSSTALK  SC  THAT 

RLC 

{  OVER  EIGHT  PASSES  ALL  ilT 

STA 

MEMJ 

5  PATTERNS  WILL  BE  USED 

POP 

D 

{RESTORE  LBA+1 

JMP 

MEM1 

{START  ANOTHER  PASS 

*  ERROR 

:  AUEIT I NO  ROUTINE  * 

*  CONSOLE  OUTPUT  0?  THE  FOR M: 

*  A-xxxx  P=xx  Cs=xx  XOR= 

* 

xx  ERROR-TYPE 

*  A  = 

FAILING 

AEERESS 

*  P  * 

CALCULATEE  PATTERN 

*  C  “ 

ACTUAL 

CONTENTS  0?  ADDRESS 

*  XOR 

=  EXCLUSIVE  OR  OF  PA 

TTERN  AND  CONTENTS 

* 

(ISOLATES  FAILING 

BIT(S)) 

*  ERROR-TYPE 

*  RD  PRESUMED 

READ  (SOFT)  ERROR 

* 

WT  PRESUMED 

WRITE  (HARE)  ERROR  * 

ERR1 

PUSH 

PSW 

{POSSIBLE  WRITS  ERROR 

MV  I 

A ,  'W  ' 

STA 

MEME5 

MV  I 

A.'T' 

STA 

MEMD5+1 

POP 

PSW 

JMP 

ERROR 

ERR2 

PUSH 

PSW 

{POSSIBLE  READ  ERROR 

MV  I 

A ,  'R 

STA 

MEMD5 

MV  I 

A,'E' 

STA 

MEMD5+1 

POP 

PSW 

ERROR 

PUSH 

B 

{SAVE  ALL  REGISTERS  LURING 

I  ERROR  AUDIT 

POSH  D 

POSH  H 

PUSH  PS'* 

XRA  3  ’(LOGICAL  EXCLUSIVE  'OR'  0? 

?  CALCOLATEL  PATTERN  AM 
ACTUAL  MEMORY  CONTENTS 

MOV  C  , A 
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LXI 

H.MEMD4 

; CONVERT  'OR'  FOR  OUTPUT 

CALL 

CHAB 

POP 

PSW 

{GST  MEMORY  CONTENTS  AND 
{  CONVERT  IT  FOR  OUTPUT 

MOV 

C ,  A 

LXI 

H.MEMD3 

CALL 

CHAB 

MOV 

C  ,2 

{CONVERT  PATTERN 

LXI 

H,MEMD2 

CALL 

CHAB 

POP 

B 

{CONVERT  CURRENT  MEMORY  ADDRESS 

PUSH 

B 

LXI 

H.MEMDl 

CALL 

CHA 

LHLD 

MEME 

I  NX 

H 

{COUNT  ERRORS  THIS  PASS 

SHLD 

MEME 

POP 

D 

{GET  CURRENT  MEMORY  ADDRESS 

PUSH 

D 

LHLD 

MEMK 

MOV 

A  ,E 

{SAVE  LOGICAL  'AND'  OF 
{  FAILING  ADDRESSES 

ANA 

H 

MOV 

H ,  A 

MOV 

A  ,  E 

ANA 

L 

MOV 

L ,  A 

SHLD 

MEMK 

LHLD 

MEML 

— • 

MOV 

A  ,E 

{SAVE  LOGICAL  'OR'  OF 
{  FAILING  ADDRESSES 

ORA 

H 

MOV 

H  ,A 

MOV 

A  ,E 

ORA 

L 

MOV 

L,A 

SHLD 

MEML 

LDA 

MEMP 

{CHECK  ITEMIZE  ERRORS  FLAG 

ORA 

A 

JZ 

ERR9 

{SKIP  PRINT  IF  FLAG  =  0 

LXI 

H.MEMD 

{PRINT  ERROR  AUDIT 

CALL 

DSPLY 

ERR9  POP 

H 

{RESTORE  REGISTERS  AND 

POP 

D 

{  RETURN  TO  MAIN  TEST 

POP 

B 

RET 

*  COMPUTE  TEST  DATA  PATTERN  FOR  GIVEN  MEMORY  ADDRESS  * 

* 

*  CALL  WITH  HL  =  MEMORY  ADDRESS 
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*  C  *  PATTERN  COUNTER 

* 


*  RETURN 

A  =  DATA  PATTERN 

★ 

PATTN 

PUSH 

H 

PATTERN  COMPUTATION 

MV  I 

B,0 

SBRANCH  ON  PATTERN 

LX  I 

H.PATT0-3 

DAD 

B 

DAL 

B 

DAD 

B 

XTHL 

.‘(RESTORE  MEM  AIDR  ) 

NOP 

RET 

J( BRANCH) 

PATT0 

JMP 

PAT1 

J1  CAMBRIDGE  PATTERN 

JMP 

PAT2 

?2  ADDRESS 

JMP 

PAT3 

13  ALTERNATE  l'S  AND  0'S 

JMP 

PAT4 

14  ADDRESS  INVERSE 

JMP 

PAT5 

?5  ALTERNATES  0'S  AND  l'S 

JMP 

PAT6 

J6  ALL  ONES 

JMP 

PAT7 

;?  CAMBRIDGE  INVERSE 

JMP 

PAT8 

;e  ALL  ZEROS 

JMP 

PAT9 

,‘9  BIT  CROSSTALK 

JMP 

PAT10 

J12  BIT  CROSSTALK  INVERSE 

PAT1 

MOV 

A,L 

.CAMBRIDGE  PATTERN 

RRC 

RRC 

RRC 

XRA 

H 

ANI 

1 

JZ 

ONES 

ZEROS 

XRA 

A 

RET 

ONES 

MV  I 

A , 0FJH 

RET 

PAT2 

MOV 

A  ,L 

JAIDRESS 

RET 

PATS 

MV  I 

A.0AAH 

J ALTERNATE  l'S  AND  0'S 

RET 

PAT4 

MOV 

A  ,L 

;address  inverse 

CMA 

RET 

PAT5 

MV  I 

A ,  55H 

.ALTERNATE  0'S  AND  l'S 

RET 

PAT6 

EQU 

ONES 

JALL  BITS  »  ONE 
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PAT? 

MOV 

RRC 

RRC 

RRC 

A  ,L 

XRA 

H 

ANI 

1 

JZ 

ZEROS 

JMP 

ONES 

PATS 

EQU 

ZEROS 

PAT9 

MOV 

RAR 

A  ,L 

JC 

PAT91 

LEA 

RET 

MEMJ 

PATS1 

LEA 

CMA 

RET 

MEMJ 

PAT10 

MOV 

RAR 

A  ,L 

JNC 

PAT91 

LEA 

RET 

MEMJ 

J C A.MBR I EGE  INVERSE 


;all  BITS  =  ZERO 
; BIT  CROSSTALK 


I  BIT  CROSSTALK  INVERSE 


*  BINARY  TO  HEX  ASCII  CONVERSION,  16  BITS  * 

* 


*  CALL 

HL  = 

AEERESS  FOR  4 

CHAR  ASCII  OUTPUT  STRING 

* 

* 

BC  * 

16  BIT  BINARY 

DATA 

*  RETURNS  HL, 

EE ,BC  UNCHANGEE 

* 

A  = 

GARBAGE  * 

CHA 

PUSH 

H 

JSAVE  REGISTERS 

PUSH 

D 

PUSH 

B 

INX 

H 

I  NX 

3 

INX 

H 

MV  I 

E  ,4 

.CHAR  COUNTER 

C3A1 

MOV 

A  ,C 

JNEXT  4  BITS 

ANI 

0FH 

CPI 

0AH 

;  IS  IT  A-F? 

JC 

CHA15 

;  no 

AEI 

7 

;yes 

CHA  15 

AEI 

'0' 

;fgrm  ascii 

MOV 

M ,  A 

.STORE  THIS  CHARACTER 

ECX 

H 

JBACK  UP  THROUGH  OUTPUT 

MV  I 

E,4 

JEOUBLE  RIGHT 
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ORA 

A 

•SHIFT  4  BITS 

CHA2 

MOV 

A  ,  B 

RAR 

MOV 

B,A 

MOV 

A  ,C 

RAR 

MOV 

C  ,  A 

ECR 

E 

{DECREMENT  SHIFT  COUNTER 

JNZ 

CHA2 

{STILL  SHIFTING 

DCR 

D 

{DECREMENT  CHARACTER  COUNTER 

JNZ 

CHA1 

{STILL  CONVERTING 

POP 

B 

{RESTORE  REGISTERS 

POP 

E 

{  AND  EXIT 

POP 

H 

RET 

♦  BINARY  TO  I 

* 

HEX 

ASCII  CONVERSION 

,  8  BITS  * 

*  CALL 

HL 

a  AEERESS  FOR  2 

CHARACTER  OUTPUT  STRING 

* 

* 

C 

a  8  BIT  BINARY  DATA 

*  RETURN 

HL 

, EE,BC  UNCHANGED 

* 

A 

DESTROYED  * 

CHAB 

PUSH 

H 

{SAVE  REGISTERS 

PUSH 

D 

PUSH 

B 

I  NX 

H 

MV  I 

D,2 

JMP 

CHA1 

*  PRINT 

CHARACTER  STRING  * 

*  CALL 

HL 

»  FIRST  3YTE  ADDRESS  OF  OUTPUT  STRING 

* 

(MUST  END  WITH 

ASCII  CARRIAGE  RETURN)  * 

DSPLY 

CALL 

CRLF 

LS PLY 1 

MOV 

A  ,M 

CALL 

US  ROUT 

{OUTPUT  THIS  CHARACTER 

CPI 

CR 

{END  OF  STRING? 

RZ 

{  YES,  EXIT 

INX 

H 

{  NO,  BUMP  STRING  POINTER 

JMP 

DSPLY  1 

*  GET  KEYBOARD  ENTRY  OF  HEX  INTEGER  * 

* 

*  RETURN  HL  *  16  BIT  BINARY  DATA  * 
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ENTR 

LXI 

H  ,0000a 

J  INITIALIZE  DATA 

CALL 

CRLF 

> SENE  CARRIAGE  RETURN  & 

J  LINE  FEED 

MV  I 

A,'>' 

> SENE  A  CUE  MARK 

CALL 

USROUT 

MV  I 

C  ,4 

JCHAR.  COUNTER 

ENTR1 

CALL 

USRIN 

JGET  1  CHARACTER 

CPI 

CR 

J CARRIAGE  RETURN? 

RZ 

jyes,  exit 

CPI 

LF 

JLINE  FEED? 

RZ 

jyes,  exit 

CPI 

'A' 

;  IS  IT  0-9? 

JC 

ENTR15 

;  YES 

ANI 

0EFH 

JNO,  FORCE  LOWER  CASE 

ENTR15 

DAD 

H 

;SHIFT  PREVIOUS  DATA  LEFT 

DAD 

9 

;  4  BITS 

DAE 

H 

DAD 

H 

JC 

ENTR3 

; IF  OVERFLOW  ,  PRINT  '? ' 

CPI 

'0' 

;is  IT  0-F? 

JC 

ENTR3 

J ILLEGAL  CHARACTER 

CPI 

'F'+l 

JNC 

ENTR3 

; ILLEGAL  CHARACTER 

CPI 

'A' 

;  IS  IT  A-?? 

JC 

ENTR2 

J  NO  ,  IT'S  0-9 

ADI 

9 

JAED  FUDGE  FACTOR 

ENTR2 

ANI 

0FH 

J  ISOLATE  4  3ITS 

ORA 

L 

JMERGE  WITH  PREVIOUS  LATA 

MOV 

L,A 

DCR 

C 

J COUNT  CHARACTERS 

RZ 

;EXIT  IF  4  RECEIVED 

JMP 

ENTR1 

JGET  ANOTHER  CHARACTER 

ENTR3 

MV  I 

A,'?' 

J  PRINT  QUESTION  MARK 

CALL 

USROUT 

JMP 

ENTR 

J  ANI  RESTART  ENTRY 

*  PRINT 

CARRIAGE  RETURN  AND 

LINE  FEED  * 

CRLF 

MV  I 

A ,  CR 

CALL 

USROUT 

MV  I 

A  ,LF 

CALL 

USROUT 

RET 

*  MISCELLANEOUS 

MESSAGES  AND  DATA 

AREA  * 

MEMA 

DB 

'8080  MEMORY  TEST 

-  VERSION  2 . 5 ' , LF, CR 

MEMB 

IB 

'ENTER  ADDRESS  OF 

FIRST  MEMORY  BYTE' 

EB 

'  TO  TEST : ' ,  CR 
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MEMO  DB 

EB 

MEMD  DB 

MEME1  EB 

MEME2  EB 

MEMD3  DB 

MEME4  EB 

MEMD5  EB 

MEME  DW 

MEMF  EW 

MEMG  EB 

MFMG1  DB 

MEMG2  EB 

MEMG23  EB 

MEMG25  DB 

MEMG3  EB 

MEMG4  EB 

MEMI  DW 

MEMJ  EB 

MEMK  EW 

MEML  EW 

MEMM  DB 

MEMN  DB 

EB 
DB 

HEMP  EB 

MEMT  EB 

DB 

MEMT1  EB 

MEMU  EB 

DB 

MEMV  EB 

EB 
DB 

MEMX  EW 


ENTER  ADDRESS  OF  LAST  MEMORY  BYTE' 

'  TO  TEST  : ' , CR 
'ADDRESS*  ' 

'$$$$  PATTERN*' 

'$i  CONTENTS*' 

'££  xor=  ' 

'£$  TYPE*' 

'  '  ,CR 

0  ; ERRORS  THIS  PASS 

0  ,‘PASS  COUNT 

'££$£-£££$  PASS:  ' 

ERRORS:  ' 

'£££$  CUM.  ERRORS:  ' 

'$£££  ' 

CR.  'AND:  ' 

'$5$$  OR:  ' 

'$$£$', CR 

0  ; FIRST  BYTE  ADDRESS  TO  TEST 

0FEH  ; BIT  CROSSTALK  PATTERN 

-1  J LOGICAL  'ANE'  OF  FAILING 

J  ADDRESSES 

0  (LOGICAL  'OR'  OF  FAILING 

J  ADDRESSES 

LF, 'GOODBYE',  CR 
'I*ITEMIZE  ERRORS,  ' 

'T*PRINT  ERROR  TOTAL  ONLY,  ' 

'E*EXIT  TEST  '  ,CR 

0  ;flag  i=itemize,  0=total 

'END  OF  PROGRAM  USEE  AS  FIRST  ' 

'ADDRESS  TO  TEST  *  ' 

'££$$', CR 

'ERROR:  LAST  BITE  ADDRESS  LESS  ' 

'THAN  FIRST  BYTE  ADDRESS. ',CR 
LF 

'TO  ABORT  TEST  PUSH  ANY  KEY' 

CR 

0  ; CUMULATIVE  ERROR  COUNT 


USRIN  PUSH  B  JGET  INPUT  FROM  HOST  CONSOLE 

PUSH  E 

PUSH  H 

MV  I  C,1 

CALL  USRIO 

POP  H 

POP  D 

POP  B 

RET 


USROUT  PUSH 
PUSH 


B 

E 


!  SEND  CHARACTER  TO  HOST 
;  CONSOLE 


PUSH  H 

MV  I  C  ,2 

CALL  USRIO 

POP  H 

POP  E 

POP  E 

RET 

USRSTAT  PUSH  B 

PUSH  E 

PUSH  H 

MV  I  C,3 

CALL  USRIO 

POP  H 

POP  D 

POP  B 

RET 

BSOUT  MV  I  A  f BKSPACE 

CALL  US ROUT 

RET 


STACK  DS  64 

TENE  EOU  $+2 

END  100EE 


.'SEE  IF  CHARACTER  TS  WAITINC 


5  PRINT  A  BACKSPACE 


{SET  UP  FOR  32  LEVELS 
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